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Section  1 


Introduction-History 

Over  the  past  few  years  the  researchers  here  at 
Rensselear  have  been  designing  and  constructing  a  Real-Time 
Spectral  Analysis  System.  This  system  was  designed  to  be 
used  by  oceanographers  in  their  studies  of  the  tides  and 
tidal  erosion.  The  primary  purpose  of  the  system  is  to 
measure  the  very  low  frequency  power  spectra  of  the  ocean 
waves.  The  power  spectral  density  is  obtained  by  taking  the 
time  varying  input  signals  from  the  oceanographer's  sensors 
and  transforming  it  from  the  time  domain  to  the  frequency 
domain  using  a  Fast  Fourier  Transform.  The  resulting 
spectral  information  is  presented  on  a  color  graphics 
display. 

In  the  summer  of  1978  the  newly  completed  system 
was  taken  to  a  beach  in  Florida  for  a  field  test.  The  test 
proved  partially  unsuccessful.  The  basic  system  ideas  and 
functions  were  correct,  but  the  system  proved  difficult  to 
test  and  keep  operational.  Reliability  and  maintainability 
became  the  system's  downfall. 

In  the  haste  to  complete  the  system  for  the  summer 
tests  very  little  was  done  to  facilitate  testing  of  fault 
diagnosis  of  the  system  or  individual  components.  The  author 
accepted  the  task  of  remedying  the  situation  by  developing 
some  diagnostic  programs  and  methods  which  will  aid  in  test 
and  diagnosis  of  the  Real-Time  Spectral  Analysis  System. 
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This  report  presents  the  author's  efforts  and  the 
diagnostic  programs  developed  to  solve  the  given  problem. 

Since  no  tests  or  test  procedures  existed,  the 
entire  diagnostic  system  was  the  author's  responsibility. 
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Section  2 


System  Description 

2.1  General  Description-Data  flow 

The  real-time  spectral  analysis  system  is  composed 
of  4  major  subsystems  as  presented  in  figure  2.1. 

Analog  data  from  up  to  four  sensors  is  input  to  the 
data  acquistion  subsystem  where  it  is  amplified,  filtered 
and  digitized.  Next,  the  digitized  input  data  is  transfered 
to  the  high  speed  array  processor  where  a  Discr- ue  Fourier 
Transform  is  performed  on  the  data  string  converting  it 
from  the  time  domain  to  the  frequency  domain. 

The  frequency  domain  spectral  data  is  transfered 
to  the  color  graphics  display  where  it  is  displayed  in 
a  time  verses  frequency  format  with  color  encoding  repre¬ 
senting  amplitude 

Detailed  descriptions  of  each  subsystem  and  its 
functions  follow. 

2.2  IMSAI  Microcomputer  and  Front  Panel 

The  IMSAI  Microcomputer  containing  an  Intel  8080 
CPU  is  the  heart  of  the  system.  The  IMSAI  thru  the  Unibus 
adapter  controls  many  of  the  systems  and  options.  The  8080 
operates  the  user  front  panel,  receiving  and  displaying  the 
many  parameters  and  options,  and  passes  them  out  to  the 
required  subsystem.  The  microcomputer  also  functions  as  a 
host  for  the  Floating  Point  Array  Processor,  which  has  the 
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task  of  loading  the  signal  processing  programs  into  the 
array  processor. 

In  its  present  configuration,  the  IMSAI  system 
contains  24K  bytes  of  semiconductor  random  access  memory, 
an  8"  floppy  disk  drive  and  interface,  a  serial  input/out- 
put  port  for  console  communication,  and  two  parallel  input/ 
output  boards  used  in  the  Unibus  adapter.  The  IMSAI  also 
hosts  a  small  numerical  processor.  With  this  project,  an 
additional  16K  byte  read-only  memory  board  was  added  to 
the  IMSAI  to  contain  the  diagnostic  tests.  The  8080  also 
contains  an  adapter  board  which  enables  it  to  simulate  a 
DEC  PDP-11  computer  and  perform  data  transfers  over  the  Unibus. 

2.3  Floating  Point  AP-1208  Array  Processor 

The  Floating  Point  Array  Processor  performs  the  ac¬ 
tual  signal  processing.  The  digitized  input  data  is  trans- 
fered  to  the  array  processor  where  it  is  first  multiplied 
by  a  user  selected  window.  The  windowing  helps  minimize  any 
distortion  caused  by  the  time  limiting  of  the  input  data. 

The  data  is  then  transformed  into  the  frequency  domain  using 
a  1024  point  Fast  Fourier  Transform  (FFT).  After  the  Fast 
Fourier  Transform  (FFT)  the  spectral  data  may  be  filtered  or 
further  processed  before  being  presented  to  the  color  gra¬ 
phics  display. 

The  AP-120B  is  a  very  fast  and  versitale  floating 
point  array  processor  with  a  basic  cycle  time  of  16?  nano¬ 
seconds.  The  AP-120B  has  a  pipeline  structure  with  a  38-bit 
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floating  point  format.  The  instruction  words  are  64  bits 
long  so  many  functions  can  be  performed  in  one  machine 
cycle.  This  type  of  speed  and  instructions  format  is 
ideal  for  the  reiterative  additions  and  multiplication 
often  used  in  digital  signal  processing.  For  example,  a 
512  point  FFT  can  be  performed  in  3*2  MSEC. 

The  array  processor  is  a  slave  computer  and 
requires  a  host  to  operate  it.  In  this  system  the  IMSAI 
8080  functions  as  the  Host.  The  AP  has  no  front  panel  and 
all  access  to  the  AP  is  thru  a  Uni bus  interface. 

2 . 4  Data  Acquisition 

The  present  system  has  four  analog  input  channels. 
The  amplified  analog  inputs  are  filtered  by  a  programmable 
anti-aliasing  filter  to  band  limit  the  input  high  frequency 
components.  The  input  signal  high  frequencies  must  be  limi¬ 
ted  to  prevent  aliasing.  The  filter  cutoff  frequency  is 
set  by  the  IMSAI  8080  depending  on  the  sampling  frequency 
selected  on  the  user  front  panel.  The  analog  signal  is  then 
sampled  by  an  A/D  converter  which  converts  the  continous  in¬ 
put  data  to  sampled  digital  data.  The  system  is  capable  of 
sampling  frequencies  of  from  .001  HZ  to  I5  KHZ.  The  input 
circuitry  contains  a  programmable  real-time  clock  used  to 
control  the  sampling  rate.  This  clock  is  set  by  the  IMSAI 
in  response  to  the  front  panel  selected  frequency.  The 
digitized  data  is  transfered  directly  to  the  array  processor 
data  memory  via  an  AP  input/output  port  interface. 
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The  color  graphics  display  system  was  built  espe¬ 
cially  for  this  system.  The  graphics  display  portion  con¬ 
sists  of  a  512  X  512  point  screen  format  which  is  stored  in 


a  large  Intel  refresh  memory. 

The  frequency  spectrum  of  each  input  block  of  1024 
input  samples  is  displayed  on  one  horizontal  line  with  fre¬ 
quency  increasing  from  left  to  right.  A  time  history  of  the 
spectrum  is  shown  in  the  vertical  direction  as  each  new 
line  is  added.  As  each  FFT  computation  is  completed  in 
the  array  processor  its  spectrum  is  output  into  one  hori¬ 
zontal  line  on  the  display.  The  new  line  is  added  to  the 
bottom  of  the  screen  and  the  older  lines  are  scrolled  up 
presenting  the  history  of  the  spectrum.  Each  point  of  the 
line  is  color  amplitude  encoded  with  one  of  128  possible  colors. 

Two  lines  of  characters  for  anotation  purposes  are 
provided  at  the  top  of  the  screen.  Under  the  two  lines  of 
anotation  are  two  color  bars  used  in  the  color  amplitude 
encoding.  The  top  most  bar  is  called  the  menu  and  it  pre¬ 
sents  all  128  possible  colors.  The  lower  bar  is  the  color 
map  which  contains  64  locations  into  which  a  color  can 
be  loaded.  Each  map  position  represents  an  increment  of 
magnitude  of  the  frequency  spectrum.  The  color  placed  in 
each  map  location  representing  a  certain  level  of  magnitude 
is  selected  on  the  user  front  panel.  The  entire  map  may  be 
stored  on  the  floppy  disk  for  quick  reloading. 
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Section  3 

Technical  Discussion 


3.1  Task 

The  purpose  of  this  project  is  to  identify  po¬ 
tential  system  malfunctions  and  to  design  software  and 
hardware  aids  which  will  help  in  isolating  system  faults. 
History  has  helped  in  locating  many  problem  areas.  The 
spectral  analysis  system  has  a  number  of  weak  hardware 
links  which  are  prone  to  failure.  These  areas  received 
attention  first. 

3.2  Design  Details 

The  floppy  disk  system  has  been  a  consistent 
problem  area.  The  disk  drive  is  a  very  delicate  device 
which  was  never  mount  or  placed  in  a  case,  leaving  it 
exposed  to  contamination  and  physical  abuse. 

In  the  original  system  the  disk  was  the  key¬ 
stone  of  the  spectrum  analysis  system.  All  memory  was 
volatj le  and  once  powered-down  left  the  system  void  of 
intelligence.  The  only  mass  storage  device  from  which 
to  load  any  progreims  or  diagnostics  was  the  disk  drive, 
making  a  disk  failure  catastrophic.  A  programmable  read¬ 
only  memory  containing  a  small  operating  systems  and  diag¬ 
nostics,  was  added  to  the  IMSAI  8080  computer.  This  en¬ 
ables  the  computer  system  to  always  have  a  small  oper¬ 
ating  system  available,  even  in  the  event  of  a  disk  failure. 
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The  floppy  disk  is  probaby  one  of  the  most 
difficult  parts  of  the  system  to  troubleshoot.  The 
dik  controller  requires  many  driver  routines  to  read 
or  write  to  the  disk  drive.  A  large  disk  diagnostic 
was  written  and  stored  on  the  diagnostic  memory  board  to 
aid  in  troubleshooting  and  testing  the  disk  system.  Two 
smaller  programs  were  also  written  to  aid  in  disk  drive 
alignment  and  testing. 

The  IMSAI  8080  computer  is  another  area  where 
a  possible  failure  leads  to  complete  system  failure. 

The  IMSAI  uses  an  Intel  8080  microprocessor  as  CPU.  Be¬ 
cause  of  the  one  chip  simplicity  and  cheap  replacement, 
diagnostics  on  the  actual  CPU  instuctions  did  not  seem 
prudent.  Diagnostics  to  test  the  computer  memory  were 
written  however.  The  computer  system  presently  has  24K 
of  MOS  RAM  memory.  The  MOS  memory  is  very  sensitive  to 
static  charges  and  power  supply  voltage  variations.  A 
comprehensive  memory  test  using  an  advanced  test  algorithm 
by  Knaizut  and  Hartmann  was  implemented.  A  simpler 

mini -memory  test  has  the  advantage  of  not  requiring  a 
console  device  or  scratch  pad  memory.  These  tests  are  all 
resident  on  the  diagnostic  memory  board. 

The  majority  of  the  devices  in  the  spectral  anal¬ 
ysis  system  are  handwired  prototype  devices  connected  to 
the  Pseudo-Unibus.  The  IMSAI  microcomputer  has  control  of 
the  Uni bus  via  a  Unibus  to  S-100  bus  adapter.  The  adapter 
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board  uses  6  l/O  ports  in  the  IMSAI  8080.  Since  problems 
with  shorted  Unibus  lines  have  been  common  in  the  past, 
a  diagnostic  was  written  specifically  to  test  the  I/O 
ports  and  Uni bus  Lines. 

In  order  to  communicate  with  the  many  devices  on 
the  Unibus,  a  Unibus  communication  test  was  written.  This 
is  probably  the  most  useful  of  all  tests  written;  the 
user  need  only  input  f^e  device  address  and  a  transfer 
command.  A  data  word  can  be  transfered  to  or  from  any 
device  on  the  Uni bus.  Timers  are  also  included  in  the  pro¬ 
gram  to  test  for  device  'no  answers’,  a  common  problem  with 
Unibus  devices. 

The  last  major  component  ox  the  system  is  the 
Floating-Point  array  processor.  At  present,  a  complete 
diagnostic  package  for  the  AP  exists.  This  package  was 
delivered  with  the  AP  and  runs  on  the  DEC  PDP-11.  The 
spectral  analysis  system  also  has  a  small  AP  debug  pro¬ 
gram  as  part  of  the  real-time  program.  No  further  diagnos¬ 
tics  were  written  for  the  AP.  The  Unibus  communication 
test  can  be  used  to  read  and  write  to  the  array  processor 
front  panel. 

3.3  Test  Procedures 

Since  the  heart  of  the  system  is  the  IMSAI  8080 
computer,  no  part  of  the  system  will  function  without  it, 
making  it  the  first  area  to  be  treated. 
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The  following  is  a  recommended  test  sequence; 

1.  Mini -Memory  test  0  to  100  hex  version.; —  this  tests 

the  scratch  pad  memory  used  by  other  tests  and  the  diagnos¬ 
tic  operating  system.  This  test  needs  no  console,  (sec. 5) 

2.  Mini -Memory  Test  24K  version  —  this  provides  a  quick 
test  of  all  memory.  Don't  forget  to  check  the  power  sup¬ 
plies  if  you  have  problems,  (sec. 5)* 

3.  Diagnostic  Operating  System  —  try  some  simple  command 
for  overall  CPU  operation.  This  also  tests  the  console  for 
overall  CPU  operation.  This  also  tests  the  console  l/O 
operation,  (sec. 4) 

4.  Comprehensive  Memory  Test  —  this  provides  a  good  test 
on  the  memory  and  should  catch  most  problems,  (sec. 6) 

5.  CPM  disk  operating  system  —  boot  the  disk  system  and 
see  what  happens.  This  provides  a  good  indication  of 
overall  disk  operation.  Most  disk  problems  show  up  here. 

6.  Formatted  disk  test  —  this  test  tests  the  normal 
formatted  operation  of  the  disk.  This  test  can  take  a 
long  time  to  check  all  77  tracks  and  a  bad  diskette  media 
can  cause  a  failure*  use  a  good  blank  disk. 

7.  Uni bus  Port  Test  —  This  checks  for  shorted  unibus  lines 
and  broken  wires.  If  this  fails  look  for  an  incorrectly 
inserted  card  in  the  lower  card  cage.  (sec. 10) 

8.  Uni bus  Communication  Test  —  try  to  communicate  with 
the  various  unibus  devices,  (sec. 11) 

9.  Real-time  Spectral  Analysis  program  —  the  ultimate  test. 
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Section  4 


Diagnostic  Operating  System 

4. 1  General  Description 

In  order  to  enable  the  computer  system  to  have 
some  capabilities  and  intelligence  during  a  major  system 
failure,  a  small  self-contained  operating  system  is  inclu¬ 
ded  on  the  diagnostic  memory  board.  This  operating  system 
can  be  used  to  run  the  diagnostic  program  as  well  as  per¬ 
form  a  number  of  standalone  function  such  as  memory  and 
register  examine. 

4. 2  Detailed  Description 

The  diagnostic  operating  system  is  a  modified 
and  expanded  version  of  the  SSM  8080  Monitor  V-1  supplied 
with  the  Prom  Memory  board.  The  operating  system  supplied 
was  modified  to  handle  our  l/O  requirements  and  the  scratch 
pad  area  used  by  the  operating  system  was  fixed  to  the 
first  256  bytes  of  RAM  memory.  A  diagnostic  test  direc¬ 
tory  and  controller  were  added  to  ease  diagnostic  program 
execution.  A  Help  command  was  also  added  to  remind  the 
casual  user  of  the  various  commands  and  options  available. 

4. 3  Program  Usage 

The  starting  address  of  the  operating  system 
is  FOOD  Hex  and  it  can  be  started  directly  from  the  IMSAI 
8080  front  panel.  The  operating  system  is  located  in  a 
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readonly  memory  on  the  diagnostic  memory  hoard  and  requires 
only  a  minimum  system  of  2^6  hyte  of  ram  memory  and  a  con¬ 
sole  device  to  function. 

The  operator  communication  with  the  monitor  con¬ 
sist  of  a  single  alphabetic  character  input  on  the  console 
device  and  may  be  followed  by  one  or  more  parameters. 

When  two  or  more  parameters  are  used  they  are  separated  by 
a  coma  or  a  space.  Parameters  are  hexadecimal  values  con¬ 
sisting  of  four  or  two  hexadecimal  characters.  Leading 
zeros  are  assumed.  The  command  line  is  terminated  by 
cai-riage  return  in  most  cases. 

4.4  Commands 

The  following  is  a  modified  and  expanded  expla¬ 
nation  of  the  SSM  monitor  commands 

D  Command-  (Display  memory) 

D'Low  Address' , 'High  Address' 

Memory  from  'Low  Address'  through  'High  Address' 
is  displayed  on  the  console  device.  If  'High  Address'  is 
equal  to  or  smaller  than  'Low  Address',  only  the  'Low 
Address'  byte  is  displayed.  Data  bytes  are  displayed  in 
hexadecimal,  16  bytes  per  line.  The  beginning  address  of 
each  line  is  displayed. 

S  Command  -  (Subsitute  memory) 

S 'Address' 
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The  hyte  at  location  'Address'  is  displayed  on 
the  console  device  followed  by  a  -  character.  The  oper¬ 
ator  responds  with  one  or  more  characters  from  the  console. 
If  the  input  character  is  a  space  or  comma,  the  contents 
of  the  next  location  is  displayed.  If  one  or  more  hexa¬ 
decimal  digits  are  inputed  before  the  space  or  comma,  the 
specified  value  will  replace  the  displaced  value  in  the 
memory  location.  A  carriage  return  terminates  the  command. 

F  Command  (fill  memory) 

F'Low  Address ', High  Address 'Data' 

Memory  from  'Low  Address'  through  'High  Address' 
is  filled  with  'data'.  If  'High  Address'  is  equal  to  or 
smaller  than  'Low  Address'  on  the  'Low  Address'  is  changed. 

M  Command  (move  memory) 

M'Low  Address ', High  Address’ ."Dest  Address' 

Data  from  'Low  Address'  through  'High  Address' 
are  moved  to  memory  beginning  at  'Dest  Address'.  If 
'High  Address'  is  equal  to  or  smaller  than  'Low  Address' 
only  the  byte  at  'Low  Address'  is  moved.  If  'Dest  Address’ 
is  between  'Low  Address’  and  'High  Address'  the  data  from 
'Low  Address'  to  'Dest  Address'  is  repeated  to  fill  the 
destination  field. 

B  Command  (binary  dump  memory) 

B'Low  Address ', 'High  Address* 

Data  from  'Low  Address’  through  'High  Address' 
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are  output  to  the  logical  punch  device  in  a  binary  for¬ 
mat  compatible  with  mits  paper  tape  format.  'High  Address' 
must  be  equal  to  or  greater  than  'Low  Address',  with  one 
exception:  If  'High  Address'  is  zero,  an  end-of-file- 
record  is  output  specifying  'Low  Address'  as  the  entry 
point  address 

L  Command  (load  memory,  binary) 

L'Bias  Address' 

Data  in  binary  format  are  read  from  the  logi¬ 
cal  reader  device  and  stored  in  memory  at  the  load  address 
specified  in  the  input  file  plus  'Bias  Address'.  When 
an  end-of-file  record  is  encountered  control  is  transferred 
to  the  specified  entry  point,  address  of  zero  terminates 
loading  and  the  monitor  remains  in  control. 

W  Command  (write  memory,  Hexadecimal) 

W'Low  Address 'High  Address’ 

Data  from  'Low  Address'  through  'High  Address' 
are  output  to  the  logical  punch  device  in  a  hexadecimal 
format  compatible  with  Intel  paper  tape  format.  'High 
Address'  must  be  equal  to  or  greater  than  'Low  Address' 
with  one  exception:  If  'High  Address'  is  zero  an  end-of- 
file  record  is  output  specifying  'Low  Address'  as  the 
entry  point  address. 

R  Command  (read  to  memory,  hexadecimal) 
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R'Elas  Address' 


Data  in  hexadecimal  format  are  read  from  the 
logical  reader  device  and  stored  in  memory  at  the  load 
address  specified  in  the  input  file  plus  'Bias  Address’. 

When  an  end-of-file  record  is  encountered  control  is  trans¬ 
ferred  to  the  specified  entry  point  address  if  it  is  non¬ 
zero.  An  entry  point  address  of  zero  terminates  loading 
and  the  monitor  remains  in  control. 

N  Command  (null  output) 

N 

Sixty  null  hytes  (OOH)  are  output  to  the  logical  punch  device. 

K  Command  (copy  files) 

K 

Bytes  are  continously  read  from  the  logical  reader  device 
and  output  to  the  logical  punch  device.  This  process  con¬ 
tinues  until  manually  interrupted,  I.E.,  by  resetting 
the  system. 

G  Command  (goto) 

G 'Address 'Breakpoint  1 ', 'Breakpoint  2' 

If  'Address'  is  specified,  control  is  trans¬ 
ferred  to  'Address'.  If  'Address'  is  not  specified,  con¬ 
trol  is  transferred  to  the  address  of  the  last  encountered 
breakpoint,  after  program  status  (CPU  registers  and  flags) 
is  restored. 
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If  'Breakpoint  1'  or  'Breakpoint  2'  is  spe¬ 
cified,  breakpoints  (RST  1)  replace  the  bytes  at  corres¬ 
ponding  addresses.  These  addresses  must  contain  the  first 
byte  of  an  instruction.  If  breakpoints  are  specified,  a 
jump  instruction  is  stored  at  location  0008H  to  return 
control  to  the  monitor  when  a  breakpoint,  or  any  RST  1 
instruction  is  executed.  At  this  point,  the  monitor  will 
save  the  program  status  and  restore  the  bytes  replaced  by 
any  known  breakpoints.  The  program  counter  in  the  saved 
program  status  is  decremented,  so  that  program  execution 
may  be  resumed  with  the  instruction  formerly  replaced 
by  the  breakpoint.  Monitor  commands  may  then  be  used  to 
display/modify  memory  or  CPU  registers,  etc. 

When  the  monitor  is  entered  normally,  i.e. 
by  other  than  breakpoint  execution,  recording  of  existing 
breakpoints  is  destroyed.  Therefore,  if  breakpoints  are 
set,  but  not  executed  before  the  monitor  is  re-entered, 
the  contents  of  the  bytes  containing  those  breakpoints  must 
be  manually  restored. 

RST  1  instructions  other  than  knovm  breakpoints 
may  be  used  as  pseudo-breakpoints,  subject  to  certain 
restrictions.  The  jump  instruction  must  be  stored  at  loca¬ 
tion  0008H  by  previously  setting  a  normal  breakpoint. 

RST  1  instructions  other  than  known  breakpoints  may  be 
executed  through  normal  program  execution  (RST  1  stored  as 
part  executing  program)  or  instruction  jam  (interrupt). 
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When  such  a  RST  1  instruction  is  encountered,  the  monitor 
saves  the  program  status  and  resets  known  breakpoints. 
However,  the  program  counter  in  the  saved  program  status 
is  not  decremented,  so  program  execution  may  be  resumed 
at  the  next  instruction. 

X  Command  (register  display/modify ) 

X 'Register ' 

Register  contents  as  of  the  last  encountered 
breakpoint  are  displayed.  'Register'  may  be  specified  as 
A,B,C,D,E,F  (flags),  H,L,M  (HandL  combined),  P  (program 
counter)  or  S  (stack  pointer).  The  registers  are  displayed, 
in  the  above  order,  beginning  with  specified  'Register'. 
After  each  register  content  is  displayed,  the  operator 
may  change  it  by  supplying  the  new  value  followed  by  a 
space  or  comma.  If  no  new  value  is  entered  the  old  value 
is  retained  and  the  next  register  is  displayed.  The  com¬ 
mand  is  terminated  by  a  carriage  return,  or  display/mod- 
ification  of  register  S. 

If  'Register'  is  not  specified,  all  registers  are 
displayed  without  operator  intervention. 

C  Command  (hexadecimal  arithmetic) 

C 'Operandl' , '0perand2' 

The  sum  and  difference  of  'Operandl'  and  0perand2' 
are  displayed  in  hexadecimal  on  the  console  device. 
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A  Command  (assign  l/O  devices) 

A'Logical'= 'Physical' 

Physical  device  'Physical'  is  assigned  to  logi¬ 
cal  device  'Logical*.  'Logical'  may  be  any  of  the  four 
system  logical  devices,  I.E.,  console,  reader,  punch,  or 
list.  Only  the  first. character  of  the  device  name  is  re¬ 
quired.  'Physical'  may  be  0,1,2,  or  J.  This  option  is 
not  fully  implemented  due  to  the  lack  of  I/O  devices. 

H  Command  (Help) 

H 

This  program  lists  a  summary  of  all  of  these  commands. 

T  Command  (Test  Controller) 

T 

This  command  executes  the  test  controller  and 
test  directory.  The  test  directory  printout  can  be  sup- 
pessed  by  raising  sense  switch  'O'.  If  the  type-out  is 
not  suppressed  the  program  will  list  the  tests  available 
and  request  the  test  to  be  run.  If  the  type-out  is  suppre- 
ssedj  the  test  code  can  be  input  immediately  following 
the  'T'. 
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A  Assigns  l/O  device  (physical  to  logical) 

B  Dump  memory  in  binary  on  punch  device 

C  Hexadecimal  arithmetic 

D  Display  a  block  of  memory 

F  Fill  a  block  of  memory  with  a  constant 

G  Go  to  address  and  execute,  optional  break-pt. 

H  Help,  this  directory 

K  Copy  from  reader  to  punch 

L  Load  a  binary  tape,  optional  bias 

M  Move  a  block  of  memory  to  another  location 

N  Outputs  60  nulls  to  punch 

R  Loads  a  hex  tape  from  reader 

S  Display  and  changes  any  memory  location 

T  Test  list  and  execution  program 

W  Dumps  memory  in  hex  on  punch 

X  Cpu  register  display  and  change 


Table  4.1  COMMAND  SUMMARY 
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4.5  Externally  Referenced  Subroutines 


Several  externally  reference  subroutines  are 
available  for  program  usage.  These  routines,  their  start¬ 
ing  address,  and  function  are  outlined  below* 

MONTRA  'FOOO' 

Normal  entry  point  to'  the  monitor 
Cl  •F003' 

Console  input.  One  character  is  read  from  the 
logical  console  device  and  returned  in  register  A.  All 
registers  other  than  A  and  F  are  preserved. 

RI  'F006' 

Reader  input.  One  byte  is  read  from  the  logical 
reader  device  and  returned  in  reg  A.  All  registers  other 
than  A  and  F  are  preserved.  If  no  byte  is  available  from 
the  reader,  the  carry  flag  is  set  upon  return. 

CO  ’F009' 

Console  output.  The  byte  in  register  C  is  out¬ 
put  to  the  logical  console  device.  All  registers  other  than 
A  and  F  aire  preserved. 

PO  'FOOC 

Punch  output.  The  byte  in  register  C  is  output 
to  the  logical  punch  device.  All  registers  other  than 
A  and  F  are  preserved. 
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LO  'FOOF' 

List  output.  The  byte  in  register  C  is  output 
to  the  logical  list  device.  All  registers  other  than  A 
and  F  are  preserved. 


CSTS  •F012' 

Console  status.  The  logical  console  input  device 
is  checked  for  availability.  Register  A  is  set  to  zero 
and  the  zero  flag  is  set  true  if  no  input  is  available. 
Register  A  is  set  non-zero  and  the  zero  flag  set  false  if 
a  character  is  available.  All  registers  other  than  A  and  F 
are  preserved. 


lOCHK  ‘FOIS’ 

The  current  setting  of  lOBYT  (I/O  byte)  is 
returned  in  register  A.  lOBYT  is  the  byte  of  ram  used 


to  record  the  current  logical  device  to  physical  device 


assignments . 


Bits 

0.1 

Record 
to  the 

Bits 

2.3 

Record 
to  the 

Bits 

4.5 

Record 
to  the 

Bits 

6,7 

Record 
to  the 

the  physical  device  currently  assigned 
logical  console  device. 

the  physical  device  currently  assigned 
logical  reader  device. 

the  physical  device  currently  assigned 
logical  punch  device. 

the  physical  device  currently  assigned 
logical  list  device. 
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lOSET  'F018* 


The  contents  of  register  C  are  stored  in  ICBYT, 
thus  altering  the  logical  to  physical  device  assignments. 

All  registers  are  preserved. 

STRNG  'FOIE' 

The  string  of  characters  pointed  to  by  registers 
H  and  L  is  output  to  the  logical  console  device.  The  charac¬ 
ter  string  is  terminated  before  a  null  character  or  after 
a  character  with  bit  7  set.  Registers  B,D,E  are  preserved. 

REENT  'F021' 

Alternate  entry  point  to  the  monitor.  The  current 
I/O  configuration  is  not  altered  when  the  monitor  is  entered 
at  this  point. 
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Section  5 
Mini-Memory  Test 

5.1  General  Description 

The  Mini -Memory  test  is  a  small  memory  diag¬ 
nostic  test.  The  test  is  completely  self-contained  and 
requires  no  scratch  pad  memory  or  I/O  devices.  Since 
the  test  has  a  fixed  test  address  range  three  different 
copies  of  the  test  are  provided,  each  with  a  different 
address  range. 

5.2  Program  Details 

The  Mini -Memory  test  is  a  modified  implementa¬ 
tion  of  the  memory  test  supplied  with  the  IMSAI  8080  com¬ 
puter  system.  To  proide  flexibility  three  different  versions 
of  the  test  are  provided  with  a  (0  to  256),  (0  to  8K),  (0  to24K) 
address  ranges.  All  versions  are  stored  in  programmable 
memory  on  the  diagnostic  memory  board. 

The  memory  test  consists  of  three  phases.  Phase 
one  consists  of  an  incremented  bit  pattern,  where  each 
address  is  tested  with  the  256  different  patterns.  In  phase 
two  and  three  the  lower  and  upper  bytes  respectively  of  the 
address  are  stored  in  that  location.  Phase  two  and  three 
are  designed  to  help  locate  addressing  problems. 
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5 • 3  Cperation 


The  0  to  100  hex  version  of  this  test  was  de¬ 
signed  to  test  the  scratch  pad  area  used  by  the  dia- 
nostic  operating  system  and  the  comprehensive  memory  test. 
This  test  should  be  run  before  these  programs  to  verify  this 
area  of  memory.  Although  this  test  can  be  run  by  the  oper¬ 
ating  system  test  controller,  it  should  normally  be  start¬ 
ed  directly  from  the  IMSAI  8080  front  panel  at  a  starting 
address  of  *C290'  hex. 

The  Mini-Memory  tests  require  no  console  device 
so  all  communication  with  the  test  is  through  the  IMSAI  8080 
sense  lites  (address  lites  8-I5)  and  the  sense  switches 
(address  switches  8-15).  Once  the  test  is  started,  the 
status  of  the  test  as  it  proceeds  through  the  various 
phases  is  displayed  in  the  sense  lites  (see  table  5*l)* 

If  an  error  is  encounted,  an  error  message  is  also  read  out 
in  the  sense  lites.  The  following  is  the  procedure  used 
to  locate  the  faulty  memory  location* 

1.  Change  any  sense  switch 

2.  Sense  lites  will  display  8  high-order  address  bits  at 
at  the  failing  location. 

3.  Change  any  sense  switch. 

4.  Sense  lites  will  display  8  low-order  address  bits  at 
the  failing  location 

5.  Change  any  sense  switch. 

6.  Sense  lites  will  display  data  test  pattern. 
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7.  Change  any  sense  switch. 

8.  Sense  lites  will  display  the  actual  data  at  the  failing 
location. 

9.  Change  any  sense  switch. 

10.  The  test  will  start  over  at  the  beginning  of  phase  one. 

The  0  to  8K  version  of  the  Mini-Memory  begins  at 
'D6OO'  hex  and  the  0  to  24K  version  begins  at  'D7OO’  hex. 
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Sense  Lite  Display  Meaning 


Hex 

01 

Phase 

1  Running-no 

errors  yet 

02 

Phase 

2  Running-no 

errors  yet 

03 

Phase 

3  Running-no 

errors  yet 

FI 

Error 

Phase  1 

F2 

Error 

Phase  2 

F3 

Error 

Phase  3 

FF 

Test  complete-no  errors,  move 
any  sense  switch  to  restart 

Table  5.1 
Phase  messages 
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mini-memory  test 

PROM  VERSION  FOR  0  TO  lOOH 
BRIAN  J.  DONLAM 


ORG 

OC290H 

ENTER 

DI 

MVI 

A , OFEH 

OUT 

OFFH 

LXI 

H.OOOH 

LP3; 

XU 

A 

LPl : 

MOV 

M.A 

MOV 

8,M 

CMP 

B 

JNZ 

ERRt 

INR 

A 

JNZ 

LPl 

INK 

H 

LXI 

XCHG 

D.OFFOOH 

DAD 

XCHG 

D 

JNC 

LP2 

!  PHASE  II 

MVI 

A , OFOH 

OUT 

OFFH 

LXI 

H.OOOH 

LP3: 

MOV 

M.H 

INX 

H 

LXI 

XCHG 

D.OFFOOH 

DAD 

XCHG 

D 

JHC 

LP3 

( 

READ 

memory 

LXI 

H.OOOH 

LPN: 

MOV 

A.M 

SUB 

H 

JNZ 

CRR2 

INX 

H 

LXI 

XCHG 

D.OFFOOH 

DAD 

XCHG 

D 

JNC 

LP* 

!  PHASE 

III 

$ 

MVI 

A.OFCH 

OUT 

OFFH 

LXI 

H.OOOH 

LP5: 

MOV 

M.L 

INX 

H 

LXI 

XCHG 

D.OFFOOH 

DAD 

XCHG 

D 

JNC 

LP5 

;REA0  MEM 

LP6: 

LXI 

H.OOOH 

MOV 

A.M 

SUB 

L 

JNZ 

ERR3 

INX 

H 

LXI 

XCHG 

D.OFFOOH 

DAD 

XCHG 

0 

JNC 

LP6 

lOUTPUT  PHASE  I  LITES 
iSTART  ADDRESS 
ZERO  ACC 

STORE  test  PATTERN  IN  MEM 

read  back  to  B 
COMPARE  FOR  OK 
JUMP  IF  ERROR 
MEW  TEST  PATTERN 


:stop  address 

:ADD  TWO’S  COMPLIMENT 


•.phase  II  LITES 


.-LOW  ADDRESS  TO  MEM 
iSTOP  address 


:READ  MEMORY 
: COMPARE 
iJUMP  IF  ERROR 


;PHASE  three  LITES 
ISTORE  HIGH  ADDRESS  IN  ALL 


:HEAD  MEMORY 
.-COMPARE 


MEM 
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ALL  PHASE  COMPLETE 


MVI 

A, OFFH 

LXI 

H. ENTER 

JMP 

f 

LITES 

(PHASE  I  ERROR 

ERRl;  XCHG 

MOV 

C.A 

LXI 

H.COMERR 

MVI 

A.OF1H 

JMP 

1 

LITES 

[COMMON  ERROR 

OUTPUT  ROUT 

COMERR;  MOV 

A.D 

LXI 

H.  LOADD 

JMP 

LITES 

LOADD;  MOV 

A.E 

LXI 

H.TPAT 

JMP 

LITES 

TPAT:  MOV 

A.C 

LXI 

H.  ACTDAT 

JMP 

LITES 

ACTDAT:  MOV 

A.B 

LXI 

H. ENTER 

JMP 

LITES 

!  PHASE  ri  ERROR 

ERfi2:  XCHG 

ADD 

D 

MOV 

B.A 

MOV 

C.D 

MVI 

A.0F2H 

LXI 

H.COMERR 

JMP 

LITES 

:CO  TO  LITES  PROG 


:SAVE  bad  data 
, -RETURN 

:PHASE  I  ERROR  LITES 


;H1GH  ADDRESS 
, -RETURN 

;LCW  ADDRES  TO  LITES 
.-RETURN 

:TESI  PATTERN  TO  LITES 
IRETURN 

.-ACTUAL  DATA  TO  LITES 
jSTART  OVER 


:SAVE  BAD  ADDRESS 


iPHASE  II  ERROR  TO  LITES 
(RETURN 


PHASE  in  ERROR 


E 

B. A 

C. E 

*,OF3H 

H.COMERR 

LITES 


(SAVE  BAD  ADDRESS 


(PHASE  n  ERRO  TO  LITES 
(RETURN 


LITES  ROUTINE 


enter  WITH  RETURN  IN  REG  HAL 

DATA  FOR  LITES  IN  A 


OFFH 

H.A 

OFFH 

H 

LPT 

H.OFCISH 

N 

A 

H 

LP8 

H.O 

5P 


(OUTPUT  LITES 
(SAVE  RETURN  IN  SP 
(READ  SENSE  SWITCHES 
(SAVE  IN  H 
(READ  SWITCHES 
(SEE  IF  THEY  CHANGED 

[DELAY  LOOP 


(ZERO  H 

(MOVE  RETURN  BACK  TO  H  I  L 
(RETURN 
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8K  MINI  MEMORY  TEST 


;  BRIAN  DONLAN 
;  PROM  VERSION 
ORG 

ENTER:  DI 
MVI 
OUT 


AHA 

LPl;  MOV 
MOV 
CMP 
JHZ 
INR 
JNZ 
INX 
LXI 
XCHC 

dad 

XCHC 
JNC 

•  PHASE  IT 

MVI  A.OFDH 

OUT  OFFH 

LXI  H.OOOH 

MOV  M.H 

INX  H 

LXI  D.OEOOOH 

XCHG 

DAD  0 

XCHC 

JNC  LP3 

read  memory 
LXI  H.OOOH 

MOV  A,M 

SUB  H 

JNZ  ERRS 

INX  H 

LXI  D.OEOOOH 

XCHG 

DAD  D 

XCHC 

JNC  LPA 


:  PHASE  III 

1 

MVI 

A.OFCH 

OUT 

OFFH 

LXI 

H.OOOH 

LP5: 

MOV 

M.L 

INX 

H 

LXI 

XCHG 

D.OEOOOH 

DAO 

XCHG 

0 

JNC 

LP5 

;REAO 

MEM 

LP6; 

LXI 

H.OOOH 

MOV 

A.N 

SUB 

L 

JNZ 

ERR3 

INX 

H 

LXI 

XCHG 

D.OEOOOH 

DAD 

XCHG 

D 

JNC 

LPe 

LP3: 


LPR: 


0D600H 

A. OFEH 
OFFH 

H ,  OOOH 

A 

M.A 

B. M 
B 

ERR1 

A 

LP1 

H 

D.OEOOOH 

D 

LP2 


JOUTPUT  PHASE  I  CITES 
;START  address 
.-ZERO  ACC 

:STORE  TEST  PATTERN  IN  MEM 
jREad  back  to  B 
;COMPARE  FOR  OK 
iJUMP  IF  ERROR 
;NEH  TEST  PATTERN 


;STOP  ADDRESS 

;add  tno'S  compliment 


jPHASE  II  LITES 


;LOW  address  to  mem 

;ST0P  ADDRESS 


:READ  MEMORY 
.•COMPARE 
[JUMP  IF  ERROR 


:PHASE  THREE  LITES 
ISTORE  HIGH  ADDRESS  IN  ALL 


.■READ  MEMORY 
.-COMPARE 


MEM 
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ALL  PHASE  COMPLETE 
MVI  A.CFFH 

LXI  H, ENTER 

JMP  LITES 


phase  I  ERROR 


:CO  TO  LITES  PROG 


C.A 

H.COMERR 
A ,  OF  1H 
LITES 


COMMON  ERROR  OUTPUT  ROUTINE 


COHERR:  MOV 
LXI 
JMP 

LOADD;  MOV 
LXI 
JMP 

TPAT:  MOV 

LXI 

P 

ACTDAT:  MOV 


A,D 

H, LOADD 

LITES 

A,E 

H.TPAT 

LITES 

A,C 

H,  ACTDAT 

LUES 

A,B 

H, ENTER 


:  PHASE  II  ERROR 
ERR2:  XCHG 


D 

B. A 

C. D 
A,0F2H 
H.COMERR 
LITES 


!  PHASE  III  ERROR 
ERR3:  XCHG 

ADO  E 

HOV  B.A 

MOV  C.E 

MVI  A,0F3H 

LXI  H.COMERR 

JMP  LITES 


:SAVE  BAD  DATA 
.•RETURN 

.•PHASE  I  ERROR  LITES 


:HIGH  ADDRESS 
;RETURN 

:LOW  ADDRES  TO  LITES 
(RETURN 

•.TEST  PATTERN  TO  LITES 
(RETURN 

(ACTUAL  DATA  TO  LITES 
[START  OVER 


(SAVE  BAD  ADDRESS 


(PHASE  II  ERROR  TO  LITES 
(RETURN 


(SAVE  BAD  ADDRESS 


(PHASE  II  ERRO  TO  LITES 
(RETURN 


LITES  ROUTINE 


LUES:  CMA 
OUT 
SPHL 
IN 
MOV 

LP7:  IN 

XRA 
JZ 
LXI 

LP8:  INX 

XRA 
ORA 
JNZ 
LXI 
DAD 
PCHL 


ENTER  WITH  RETURN  IN  REG  HAL 

DATA  FOR  LITES  IN  A 


OFFH 

H.A 

OFFH 

H 

LPT 

H.OFCIBH 

H 

A 

H 

LP8 

N.O 

SP 


(OUTPUT  LITES 
(SAVE  RETURN  IN  SP 
[READ  SENSE  SWITCHES 
(SAVE  IN  H 
(HEAD  SWITCHES 
(SEE  IF  THEY  CHANGED 

(DELAY  LOOP 


(ZERO  H 

(MOVE  RETURN  BACK  TO  H  4  L 
(RETURN 
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2‘iiC  MINI-'-lrMORr  TEST 
PROM  VERSION 


BRIAN  DONLAN 

ORG  0D700H 


ENTER2;  DI 
MVI 
OUT 
LAI 

LP22:  XRA 

LP12:  MOV 

MOV 
CMP 
JNZ 
INR 
JNZ 
INX 
LXI 
XCHG 
DAD 
XCHG 
JNC 

!  PHASE  II 
MVI 
OUT 
LXI 

LP32:  MOV 

INX 
LXI 
XCHG 
DAD 
XCHG 
JNC 

;  read 

LXI 

LPN2:  MOV 

SUB 
JNZ 
INX 
LXI 
XCHG 
DAO 
XCHG 
JNC 

;  PHASE  III 

MVI 

OUT 

LXI 

LP52:  MOV 

INX 
LXI 
XCHG 
DAO 
XCHG 
JNC 

;REAO  HEM 

LXI 

LP62:  MOV 

SUB 
JNZ 
INX 
LXI 
XCHG 
DAO 
XCHG 
JNC 


A. OFEH 
OFFH 
H.OOOH 

A 

H,A 

B. M 
B 

ERR12 

A 

LP12 

H 

D.OAOOOH 

D 

LP22 


A.OFDH 

OFFH 

H.OOOH 

H,H 

H 

D.OAOOOH 

D 

LP32 
MEMORY 
H.OOOH 
A.H 
H 

ERR  22 
H 

D.OAOOOH 
D 

LP«2 


A.OFCH 

OFFH 

H.OOOH 

M.L 

H 

D.OAOOOH 

D 

LP52 

H.OOOH 

A.H 

L 

ERR  32 

H 

D.OAOOOH 


LP62 


lOUTPUT  PHASE  I  LITES 
jSTART  ADDRESS 
:ZERO  ACC 

iSIORE  TEST  PATTERN  IN  MEM 
iRead  back  to  B 
;COMPARE  FOR  OK 
IJUMP  IF  ERROR 
:N£W  TEST  PATTERN 


;STOP  ADDRESS 

:ADD  TWO'S  compliment 


JPHASE  II  LITES 


:LOM  ADDRESS  TO  MEM 
;STOP  ADDRESS 


IREAD  MEMORY 
ICOMPARE 
•.JUMP  IF  ERROR 


:PHASE  THREE  LITES 
JSTORE  HIGH  ADDRESS  IN  ALL 


;READ  MEMORY 
;COHPARE 


MEM 
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ALL  PHASE  COMPLETE 
MVI  A.OFFH 

LXI  H. ENTERS 

JMP  LITES2 


:CO  TO  LITES  PROO 


JPHASE  I  ERROR 
ERR12:  XCHG 

MOV 
LXI 
MVI 
JMP 


C.A 

H,C0MEH2 

A.OFIH 

LITES2 


;SAVE  BAD  DATA 
; RETURN 

:PHASE  I  ERROR  LITES 


jcommon  error  output  routine 

COMERS:  MOV  A,D 

LXI  H.LOADDS 

JMP  LITESS 

LOADDS:  MOV  A,E 

LXI  H.TPATS 

JMP  LITESS 

TPATS:  MOV  A.C 

LXI  H.ACTOAS 

JMP  LITESS 

ACTDA2:  MOV  A.B 

LXI  H, ENTERS 

JMP  LITESS 


:HIGH  ADDRESS 

; return 

:LOW  ADDRES  TO  LITES 
;RETUrn 

:TEST  PATTERN  TO  LITES 


:ACTUAL  DATA  TO  LITES 

ISTART  OVER 


PHASE  II  ERROR 


ERR  22:  XCHG 
ADD 

D 

;SAVE 

BAD  ADDRESS 

MOV 

B.A 

MOV 

C.D 

MVI 

LXI 

JMP 

A.OF2H 

H. COMER 2 
LITESS 

:PHASE 

II  ERROR  TO  LITES 
.•RETURN 

PHASE  III  ERROR 
ERR32:  XCHG 
ADD 
MOV 
MOV 
MVI 
LXI 
JMP 


E 

B. A 

C. E 

A,0F3H 
H, COMERS 
LITESS 


iSAVE  bad  address 


JPHASE  II 

: return 


ERRO  TO  LITES 


JLITES  ROUTINE  ENTER  WITH  RETURN  IN  REG  HAL 
LITESS:  CMA  LITES  IN  A 


OUT 

SPHL 

OFFH 

IN 

OFFH 

MOV 

H.A 

LP72: 

IN 

OFFH 

XRA 

N 

JZ 

LP72 

LP82: 

LXI 

H.0FC18H 

INX 

H 

XRA 

A 

ORA 

H 

JNZ 

LP82 

LXI 

H.O 

DAD 

PCHL 

SP 

;OUTPUT  LITES 
.•SAVE  RETURN  IN  SP 
;READ  SENSE  SWITCHES 
:SAVE  IN  H 
:READ  SWITCHES 
;SEE  IF  THET  CHANCED 

JDELAY  LOOP 


'.ZERO  H 

jMOVE^RETURN  BACK  TO  H  A  L 
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Section  6 

Comprehensive  Memory  Test 

6 . 1  General  Description 

This  memory  test  is  a  comprehensive  memory 
diagnostic.  The  program  will  test  the  read,  write,  data 
hold  and  addressing  capabilities  of  a  block  of  memory 
between  any  two  given  locations. 

6 . 2  Program  Details 

The  comprehensive  memory  test  is  based  on  an  im¬ 
plementation  by  Bock  W.  Lee  ^1}  of  the  K  and  H  memory  test 
algorithm.  The  K  and  H  algorithm,  named  after  its  creators, 
J.  Knaizuk  and  C.  Hartmann  [2]  uses  modulo  three  addressing 
to  help  addressing  problems  which  might  normally  be  hidden. 

The  program  uses  two  test  patterns  which  are 
compliments  of  each  other,  the  major  and  minor  pattern. 

First  one  and  then  the  other  pattern  are  written  in  every 
third  location  and  then  read  back  as  the  program  cycles 
through  all  memory  locations.  After  all  memory  locations 
are  tested  using  the  major  and  minor  patterns,  a  pass  is 
complete.  The  patterns  are  then  rotated  and  smother  pass 
through  memory  begins  with  the  new  test  patterns. 

6.3  Operation 

The  user  is  required  to  input  the  starting  and 
stopping  addresses.  The  test  will  continue  to  cycle  through 
the  test  using  the  cyclic  patterns  until  it  is  interrupted 
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tiy  typing  any  console  character. 

The  test  has  error  messages  which  indicate 
the  failing  location  and  the  test  pattern  which  fails. 

End  of  pass  messages  are  also  given  after  each  complete 
pass  with  one  pair  of  test  patterns. 

The  memory  test  is  stored  in  programmable  read-only 
memory  on  the  diagnostic  memory  board.  The  program  can  be 
run  under  the  diagnostic  operating  system  test  controller, 
or  it  can  be  started  from  the  IMSAI  8080  front  panel  at 
a  starting  address  of  'GOOD'. 

The  memory  test  is  also  stored  on  floppy  disk 
and  can  be  invoked  by  the  CPM  operating  system  under 
file  name  ' MEMTST.COM' 

Notei  The  memory  test  requires  the  first  100 
hex  address  for  scratch  pad  so  these 
addresses  should  not  be  tested  using  this 
test.  The  first  100  addresses  should  be 
tested  using  the  mini-memory  test. 
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; 

MEMORY 

TEST 

■  DISC 

VERSION 

34  MAY 

79  B.  DONLAN 

1 

ORG 

100H 

WO 

EQU 

00 

jTEST  BYTE 

ENTRY!; 

;  u: 

SPHL 

H.OFOH 

ENTRY: 

LXI 

H, ENTRY 

PJSH 

H 

MVI 

A,  00 

IZERO  ACC 

STA 

CODE 

CALL 

CRLF 

LXI 

H,MSG1 

CALL 

PMSG 

LXI 

H.MSG2 

CALL 

PMSG 

CALL 

BBIN 

XCHC 

SHLD 

START 

LXI 

H,MSG3 

CALL 

PMSG 

CALL 

BBIN 

XCHG 

SHLD 

ENA  DR 

LXI 

H.MSGS 

CALL 

PMSG 

; 

IN 

CDATA 

JRESET  10  FLAG 

koiN; 

MVI 

C,WO 

;LOAD  test  byte 

MTEST: 

MVI 

A,  02 

jLOAD  TEST  BYTE 

STA 

PART 

HTLOP: 

CALL 

STUFF 

•.STUFF  MAJOR  ALL  OVER 

MVI 

A,  02 

;SET  TWO  AS  MINOR 

CALL 

ST'JFM 

JSTUFF  MINOR 

MVI 

A,  02 

:  SET  2  again 

CALL 

CHECK 

iNOW  CHECK  ALL  LOC 

PTCHK: 

LDA 

PART 

OCR 

A 

STA 

PART 

-.STORE  NEW  part 

CPI 

00 

jFINISH  THIS  PASS  7 

JZ 

RECYCLE 

:YES 

CONT; 

MVI 

A, 01 

;N0  CONTINUE 

CALL 

STUFM 

;sruFF  minor  SERT 

MOV 

A,C 

;LOAD  MAJOR  BYTE 

CMA 

JCOMPLIMENT  MAJOR  BYTE 

MOV 

C,A 

;SAVE  NEW  BYTE 

XRA 

A 

:ZERO  OTHER  TEST  BYTE 

CALL 

CHECK 

JMP 

MTLOP 

RECTCLE: 


MOV 

*,C 

STA 

PART 

;SAVE  INVERT  TB  TEMP 

LXI 

h.msgn 

-.END  OF  PAS  MESSAGE 

CALL 

PMSG 

LDA 

CODE 

;CHAR  CODE 

ORA 

A 

;SET  FUGS 

JNZ 

ENTRY 

jSTART  OVER 

ana 

A 

iCLEAR  CARRY 

LDA 

PART 

;  RECOVER  TEST  BYTE 

ORA 

A 

JZ 

begin 

RAL 

CHA 

NOV 

C.A 

jNEW  TEST  BYTE 

JMP 

MTEST 

;  ANOTHER  PAS 
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HILOX: 

.=USH 

A 

:SAVE  ACC 

INX 

H 

;1NC  CURRENT  ADDR 

MOV 

A.H 

;LOAD  HIGH  ODER  ADDR 

CMP 

D 

;COMPARE  WITH  END 

JNZ 

DIFF 

:NO  MATCH 

MOV 

A.L 

;LOAD  LOW  ORDER 

CMP 

.  E 

JCOMPARE  LOW  ORDERS 

JNZ 

DIFF 

;NO  MATCH 

POP 

A 

:MArCH  END 

INX 

SP 

;FAKE  RETURN  ONE  LEVEL  OUT 

INX 

SP 

RET 

DIFF: 

POP 

A 

;CONTINUE  STUFFING 

RET 

PROB: 

MVI 

C,  3FH 

.  7 

CALL 

CONOT 

•PRINT  ? 

JMP 

ENTRY 

MSG1 

OB 

ODH.OAH, 

•MEMORY  TEST',0 

HSG2 

DB 

ODH.OAH, 

•ENTER  START  ADDRESS  • 

MSGS 

DB 

OuH.OAH, 

•ENTER  STOP  ADDRESS  • ,0 

MSGA 

DB 

ODH.OAH, 

•END  OF  PASS  • ,0AH,0 

;  diagnostic  input  output  routines 
;  for  brian  donlan  26  feb  79 


CSTAT 

EQU 

3 

CCOM 

EOU 

3 

CDATA 

EQU 

2 

CKBR 

EQU 

0000001  OB 

CPTR 

EOU 

00000001B 

CNULL 

EQU 

1 

: CONSOLE  STATUS  PORT. 
; CONSOLE  COMMAND  PORT 
•.CONSOLE  DATA  PORT. 
JKEYBOARD  READY  BIT. 
iPRINT  READY  BIT. 
;CONSOLE  NULL  COUNT. 


:  CHECK  CONSOLE  INPUT  STATUS. 


CONST: 


;  READ 
CONIN: 


IN 

CSTAT 

;REAO  CONSOLE  STATUS. 

ANI 

CKBR 

JLOOK  AT  KB  READY  BIT 

MVI 

A.O 

jSET  AsO  FOR  RETURN. 

RZ 

;NOT  READY  WHEN  ZERO. 

CMA 

:IF  READY  A=FF. 

RET 

IRETURN  FROM  CONST. 

,  CHARACTER  FROM 

CONSOLE. 

IN 

CSTAT 

;READ  CONSOLE 

STATUS 

ANI 

CKBR 

:IF  NOT  READY, 

JZ 

CONIN 

: READY  WHEN  HIGH. 

IN 

CDATA 

;READ  A  CHARACTER. 

OUT 

CDATA 

ANI 

7FH 

;MAKE  HOST  SIG.  BIT  : 

0, 

RET 


;  WRITE 
CONOT: 

CONOT 1 : 


CONUL: 

CONULi; 


A  CHARACTER  TO  THE  CONSOLE  DEVICE. 


MVI 

A.ODH 

:IF  IT'S  A  CR, 

CMP 

C 

;THEN  HOP  OUT 

JZ 

CONUL 

;T0  NULL  ROUTINE. 

IN 

CSTAT 

;READ  CONSOLE  STATUS 

ANI 

CPTR 

;IF  NOT  READY, 

JZ 

C0N0T1 

;REAOY  WHEN  HIGH. 

MOV 

A.C 

:GET  CHARACTER. 

OUT 

CDATA 

SPRINT  IT. 

RET 

SRETURN. 

PUSH 

B 

;SAVE  BAC. 

MVI 

B, CNULL 

:CET  NOLL  COUNT. 

CALL 

CONOT 1 

SPRINT  CR. 

MVI 

C,0 

SGET  NULL  CHAR. 

DCR 

B 

S DECREMENT  COUNTER. 

JNZ 

C0NUL1 

SDO  NEXT  NULL. 

POP 

B 

SRESTORE  BAC. 

MOV 

A.C 

SRESTORE  A. 

RET 

SRETURN. 
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1 

’  ‘  ’PRINI 

•  •  »  1  »  »  »  »  ‘  •  »  *  *  »  i  *  »  1  »  »  »  1  »  •  »  »  t  I  1  t  f  J  i  »  »  1  J  1  »  1 

MESSAGE  UNTIL  ZERO 

1 

MESSAGE  address 

REG  H  L 

till! 

PMSG: 

MOV 

>  1  1  i  1  1  •  1 

A,M 

JCET  CHAR 

ORA 

A 

:IS  IT  A  ZERO 

RZ 

HOV 

C.A 

lOTHERWlSE  PRINT 

CALL 

CONOT 

INX 

H 

;IHC  ADDSESSS 

JMP 

PHSC 

HSG3 

t  1  1  1  1 

db 

ODH.OAH, 

»  •  1  »  i  1  t  f 

OAH.’LOC.  TEST  BYTE 

1  »  t  t  1 

PRINT  8  BIT  WORD  IN 

BINARY  FORMA! 

INPUT 

DATA  IN 

REG  A 

1  1  1  1  1 

BITS; 

MOV 

B.  A 

:  DATA 

MVI 

A,80H 

;  MASK 

OVER: 

MVI 

C,30H 

HOV 

E,A 

;  STORE  MASK 

ANA 

B 

;  AND  WITH  HASK 

JZ 

PRNT 

J  JUMP  IF  ZERO 

MVI 

C,31H 

PRNT; 

CALL 

CONOT 

ANA 

B 

:  ZERO  CARRY 

MOV 

A,E 

:  LOAD  MASK 

RAR 

JNC 

OVER 

$  ! 

RET 

BENX: 

MVI 

C,20H 

;PRINT  BLANKS,  #  IN  REG 

LPt: 

CALL 

CONOT 1 

OCR 

D 

JNZ 

LP1 

RET 

BINHA 

MOV 

A,D 

PAR 

PAR 

PAR 

PAR 

CALL 

BIN1 

MOV 

C,A 

CALL 

CONOT 

MOV 

A,D 

CALL 

BIN1 

MOV 

C,A 

CALL 

CONOT 

SET 

’cut pjfs’FOUR'KEx’Dicirs’iH’AScli”  ' 

ENTER  WITH  DATA  IN  REG  PAIR  E  AND  D 


BINB: 

CALL 

BINHA 

MOV 

D,E 

CALL 

BINHA 

REI 
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cTNVfsrs  HKX  ro  ascii 

INPJr-.  “t  BITS  HF.X  SEC  A 
OuIPJT:  8  Bir  ASSCII  REG  A 


BIN1:  ANI  OFH 


ADI 

CPI 

RC 

ADI 

RET 

30H 

3AH 

07H 

INPUTS  R 

oicirs  FROM  console 

RETURN; 

R  HEX  DIGITS  IN  REG  E-D 

BBIN:  CALL 

CONIN 

CALL 

AHS1 

RAL 

RAL 

RAL 

RAL 

ANI 

OF  OH 

HOV 

D,A 

CALL 

CONIN 

CALL 

AHS1 

ANI 

OFH 

ORA 

D 

MOV 

D,A 

CALL 

CONIN 

CALL 

AHS1 

RAL 

RAL 

RAL 

RAL 

ANI 

OF  OH 

MOV 

E,A 

CALL 

CONIN 

CALL 

AHS1 

ANI 

OFH 

ORA 

E 

MOV 

E,A 

RET 

f 

CONVERT  ASCII  10  HEX 
INPUT;  8  BIT  ASCII  REG  A 
OUTPUT:  N  BIT  HEX  REG  A 


AHS1:  NOP 

SUI  30H 

CPI  OAH 

RC 

SUI  07H 

RET 
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iNfriArE’sio’poRrs 


inita: 


CRLF: 

LF: 


MVI  A.OAAH 

OUT  CSTAI 

»Vl  A,«OH 

OUT  CSTAT 

MVI  A.PCEH 

OUT  CSTAI 

«VI  A,37H 

OUT  CSTAT 

RET 


GET  DJMMY  mode  word 
OUTPUT  IT 
GET  RESET  BIT 
RESET  SIO  BOARD 
GET  REAL  MODE  WORD 
SET  THE  MODE  FOR  REAL 
GET  THE  COMMAND 
OUTPUT  IT 


MVI 

CALL 

MVI 

CALL 

MVI 

CALL 

CALL 

RET 


C,  13 
coNor 
C,  10 

coNon 

C,7FH 

coNon 

CONOT 


;CB 

;LF 
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Section  7 


Formatted  Disk  Test 

7 . 1  General  Description 

The  formatted  disk  test  is  designed  to  test 
the  operation  of  the  Pertec  floppy  disk  drive  and  the 
Tarbell  Disk  controller.  The  ability  of  the  disk  system 
to  read,  write  and  seek  tracks  is  tested  in  the  normal 
formatted  mode. 

7 . 2  Program  Details 

The  formatted  disk  test  is  the  largest  and  most 
complex  of  all  the  diagnostics  in  this  package.  The  test  is 
completely  self-contained  and  requires  no  external  I/O 
subroutines . 

The  ability  of  the  disk  system  to  read,  write 
and  seek  tracks  is  tested  by  writing  a  known  test  pattern 
and  then  repositioning  the  read/write  head  before  perform¬ 
ing  a  verification  read.  In  order  to  test  the  disk  drive 
for  track  positioning  and  skew  error  the  head  is  moved 
between  each  read  and  write.  The  test  sequence  is  as  follows* 


1. 

write  inner  track 

2. 

seek  outer  track 

3- 

write  outer  track 

4. 

seek  inner  track 

5. 

read  and  verify  inner 

track 

6. 

seek  outer  track 

7- 

read  and  verify  outer 

track 

8. 

increment  inner  and  outer  track  counters 

U2 


The  inner  track  starts  at  one  and  the  outer 


track  starts  at  38 •  This  continues  until  all  26  sectors 
on  77  tracks  are  tested.  Extensive  error  checking  is 
performed  on  both  the  read/write  data  and  the  disk  status. 

A  large  number  number  of  error  messages  are  provided 
to  aid  in  error  analysis.  All  seek  error  and  read/write 
data  error  messages  include  the  sector  and  track  number 
in  question. 

7 . 3  Operation 

This  test  will  request  that  a  formatted  scratch 
disk  for  reading  and  writing  be  mounted.  The  mounting 
of  the  disk  must  then  be  confirmed  by  the  operator  typ¬ 
ing  a  'Y'  on  the  console  device. 

The  test  requires  no  further  interaction  unless 
an  error  is  encountered.  After  an  error  is  reported,  the 
operator  must  instruct  the  program  whether  to  repeat(R)  the 
last  sector  test  or  to  continue(C)  on  to  the  next  sector. 
Raising  sense  switch  'O'  will  direct  the  test  to  automati¬ 
cally  continue  after  an  error. 

The  test  can  be  stopped  at  any  time  by  typing 
a  'control  B'  on  the  console  device. 

Each  sector  contains  128  data  bytes.  When  a 
read  data  verification  error  is  encountered,  the  faulty 
track  and  sector  are  reported  and  the  number  of  incorrect 
bytes  in  the  sector  is  counted.  Only  the  last  errant  data 
byte  is  listed. 
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The  disk  test  is  stored  in  programmable  memory 
on  the  diagnostic  memory  board.  The  disk  test  can  be 
run  under  the  diagnostic  operating  system  test  controller, 
or  it  can  be  started  from  the  IMSAI  8080  front  panel  at 
a  starting  address  of  'C800’. 

The  disk  test  is  also  stored  on  floppy  disk  and 
it  can  be  invoked  by  the  CPM  operating  system  under  file 
name  ’DSKTST.COM'. 
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18  MAR  79 
DISC  VERSION 


:OPENIMG  MESSAGE 


ORG 

0100H 

ENTRY:  LXI 

H.HSG 

CALL 

PMSG 

LXI 

H.MSGI 

CALL 

PMSG 

CALL 

CONIN 

CPI 

•Y  ' 

JNZ 

ENTRY 

CALL 

CRLF 

LOOPS:  CALL 

CRLF 

XRA 

A 

STA 

ERRFLG 

STA 

LPCNT 

CALL 

HOME 

LOOP«:  XRA 

A 

STA 

INNER 

MVI 

A,  38 

STA 

OUTER 

CALL 

PAT 

CALL 

INWRT 

MVI 

A,3<l 

CALL 

SEEK 

CALL 

INRD 

MVI 

A, 01 

STA 

INNER 

;  TEST  FOR  CONSOLE  INTE 

LOOPS:  IN 

CSTAT 

ANI 

02H 

JZ 

LOOPS 

IN 

CDATA 

CPI 

03H 

CPI 

02H 

JZ 

ENTRY 

LOOPS:  call 

INWRT 

CALL 

OUTWRT 

CALL 

INRD 

CALL 

OUTRD 

LDA 

INNER 

INR 

A 

STA 

INNER 

ADI 

38 

STA 

OUTER 

CPI 

77 

JNZ 

LOOPS 

LDA 

LPCNT 

INR 

A 

STA 

LPCNT 

JMP 

f 

LOOPN 

:  PATTERN 

ROUNTINE 

PET:  LDA 

LPCNT 

JZ 

1ST 

CPI 

01 

JZ 

SECD 

CPI 

02 

check  keyboard 

CHECK  IF  Y 
7?  START  OVER 


;ZERO  ACC 

;zero  eerror  fug 

;Zc.RO  LOOP  COUNT 
;HCME  DRIVE  TO  TRK  0 

.-ZERO  INNER  TRK 
lOUTER  TRK 

:G£T  PATTERN 


;MOVE  BACK  AND  CHECK  TRK  00 
set  up  TO  DO  PAIRS 
start  pairs  with  TRKOI 


IKEYBAORD  ready 
;N0 

;R£AD  KEYS 
ICONTROL  C 
.•CONTROLS 
:START  OVER  AGAIN 


JZ 

LXI 

CALL 

IN 

ANI 

JZ 

HLT 

JMP 

1ST:  MVI 

STA 
RET 

SECO:  HVI 

STA 
RET 

third  MVI 


THIRD 

H.MSGZ 

PMSG 

CSTAT 

02H 

L00P6 

ENTRY 

A.OFFH 

PATEN 


:VBITE  INNER  TRK 
;READ  INNER  TRK 


:FIND  next  OUTER  INK 
;STORE  OUTER  TRK 
:TRK  77  YET  7 
:NOT  DONE  YET 
:LOOP  COUNTER 


;LOAD  LOOP  COUNTER 
: SECOND  PASS 

;END  OF  PASS 
ICHECK  KEYBOARD 

'.CONTINUE  TEST  UNTIL  INTERUPTED 

;ALL  ONES  PATERH 
;STORE  PATTERN 


;ALL  ZERO  PATTERN 
-.ALTER  PATTERN 
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[  WRITE 

inner  trk 

INWRT;  LDA 

INNER 

STA 

TRK 

BOTH:  CALL 

SEEK 

MVI 

A, 01 

STA 

SECT 

LOOP1:  XRA 

A 

STA 

REPETE 

CALL 

WRITE 

LDA 

REPETE 

ORA 

A 

JNZ 

L00P1 

LDA 

SECT 

INR 

A 

STA 

SECT 

CPI 

27 

JNZ 

LOO  PI 

RET 

t 

;  WRITE 

CUTER  TRK 

OUTWRT:  LDA 

OUTER 

STA 

TRK 

JMP 

BOTH 

1  READ  INNER  TRK 

INRD:  LDA 

INNER 

STA 

TRK 

B0TH2;  CALL 

SEEK 

MVI 

A,  01 

STA 

SECT 

LOOPS:  XRA 

A 

STA 

ERRFLG 

STA 

REPETE 

CALL 

READ 

XRA 

A 

STA 

ERRFLG 

LDA 

REPETE 

ORA 

A 

JNZ 

LOOPS 

LDA 

SECT 

INR 

A 

STA 

SECT 

CPI 

27 

JNZ 

LOOPS 

RET 

f 

;  read  outer  trk 

OUTRD;  LDA 

OUTER 

STA 

TRK 

JMP 

B0TH2 

ERRPNT:  LXI 

H,MSG3 

CALL 

PMSG 

LDA 

ERRFLG 

MOV 

D.A 

CALL 

BINHA 

LXI 

H.MSOR 

CALL 

PMSG 

MVI 

D,03 

CALL 

BLNK 

LDA 

IRK 

MOV 

D.A 

CALL 

BINHA 

MVI 

0,16 

CALL 

BLNK 

LDA 

SECT 

MOV 

D.A 

:MOVE  HEAD  ro  TRK 
[FIRST  SECTOR 


[ZERO  ACC 
[ZERO  REPEAT  FLAG 
[WRITE  ONE  SECTOR 
[LOAD  REPEAT  FLAG 
[SET  FLAGS 
[REPEAT  SECTOR 

[INC  SECTOR 

[ALL  SECTOR  DONE  ? 
[HO 


[LOAD  OUTER  TRK 
[COMMON  WRITE  ROUNTINE 


MOVE  HEAD  TO  TRK 
FIRST  SECTOR 
ZERO  SECTOR 


[ZREO  ERROR  COUNT 

[READ  ONE  SECTOR 
[ZERO  ACC 

[REPEAT  FLAG 
[SET  FLAGS 


[NEXT  SECTOR 

[ALL  SECTORS  DONE  ? 

[NO 


[OUTER  TRK  NO. 


[ERROR  MESSAGE 

[ERROR  COUNT 

[PRINT  ERROR  COUNT 
[HEADINGS 

[SPACE  OVER 

[TRACK  NO. 

[PRINT  TRACK  HO. 
[SPACE  OVER 

[SECTOR  NO. 
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I 


► 


CALL 

BINHA 

PRINT  SECTOR  NO. 

1 

MVI 

D,  13 

SPACE  OVER 

CALL 

BLNK 

' 

LDA 

PATEN 

CALL 

BITS 

iPRINT  TEST  PATTERN 

► 

MVI 

D,  12 

SPACE  OVE 

1 

CALL 

BLNK 

LDA 

BADBT 

LAST  BAD  BYTE 

CALL 

RET 

BITS 

PRINT  LAST  BAD  BYTE 

LPCNT: 

DS 

1 

SPACE  FOR  LOOP  COUNTER 

INNER: 

DS 

1 

SPACE  FOR  INNER  TRK  NO. 

OUTER: 

DS 

1 

SPACE  FOR  OUTER  TRK  NO. 

PATEN 

DS 

1 

SPACE  FOR  TEST  PATTERN 

ERRFLG: 

DS 

1 

SPACE  FOR  ERROR  COUNT 

BAOBT: 

DS 

1 

SPACE  FOR  BAD  BYTE 

BDTRK: 

DS 

1 

SPACE  FOR  DISK  READ  TRK  WHEN  ERR 

REPETE: 

DS 

1 

REPETE  FLAG 

MSGl  : 

DB 

ODH.OAH, 

DISK  TEST  NO.  1  FORMATTED  TEST  *,0 

MSGIA: 

DB 

ODH.OAH, 

LOAD  SCRATCH  DISK  TYPE  Y  WHEN  READY ',0 

MSG2 

DB 

ODH.OAH, 

END  OF 

PASS  ’,0 

MSG3: 

DB 

ODH.OAH, 

DATA  ERROR  ON  DISK  CHECK  ERROR  COUNT  IN  HEX  ’,0 

KSGA: 

OB 

ODH.OAH, 

TRACK  NO.  SECTOR  NO.  TEST  BYTE  LAST  ERROR' 

MSGS: 

DB 

ODH.OAH, 

HEAD  POSITION  ’ ,0 

MSG6: 

DB 

ODH.OAH, 

DISK  TRACK  CONTROLLER  TRACK  SECTOR  '.ODH.OAH.O 

MSG7: 

DB 

ODH.OAH. ODH.OAH, 

!!  EXECUTION  STOPPED  !!  ',0 

MSGS: 

DB 

ODH.OAH, 

TYPE  R  TO  RETRY,  C  TO  CONTINUE,  ANYTHING  ELSE  STOP  ',0 

CSTAT 

EQU 

3 

CONSOLE 

STATUS  PORT. 

CCOM 

EOU 

3 

CONSOLE 

COMMAND  PORT. 

CDATA 

ECU 

2 

CONSOLE 

DATA  PORT. 

1  CKBR 

EQU 

00000010B 

keyboard  READY  BIT. 

CPTR 

EQU 

00000001B 

PRINT  READY  BIT. 

CNULL 

EQU 

1 

CONSOLE 

NULL  COUNT. 

DISK 

EQU 

OF8H 

DISK  BASE  ADDRESS. 

DCOM 

EQU 

DISK 

DISK  COMMAND  PORT. 

DSTAT 

EQU 

DISK 

DISK  STATUS  PORT. 

TRACK 

EQU 

DISK*! 

DISK  TRACK  PORT. 

SECTP 

EQU 

DISK*2 

DISK  SECTOR  PORT. 

DDATA 

EQU 

DISK*3 

DISK  DATA  PORT. 

WAIT 

EQU 

DISK*« 

DISK  WAIT  PORI. 

DCONT 

EQU 

DISK*A 

DISK  CONTROL  PORT. 

TRK: 

DS 

1 

ADDRESS  FOR  TRACK 

SECT: 

OS 

1 

ADDRESS  FOR  SECTOR 

;  READ 

A  CHARACTER  FROM  CONSOLE. 

CONIN: 

IN 

CSTAT 

:READ  CONSOLE  STATUS. 

ANI 

CKBR 

IF  NOT  READY, 

JZ 

CONIN 

READY  WHEN  HIGH. 

IN 

CDATA 

READ  A  CHARACTER. 

OUT 

CDATA 

ANI 

7FH 

MAKE  MOST  SIC.  BIT  »  0. 

RET 

!  WRITE 

A  CHARACTER  TO  THE  CONSOLE  DEVICE. 

COHOT: 

MVI 

A.ODH 

IF  IT’S 

A  CR, 

CMP 

C 

.THEN  HOP  OUT 

JZ 

CONUL 

•TO  MOLL 

ROUTINE. 

CONOT1: 

IN 

CSTAT 

READ  CONSOLE  STATUS. 

ANI 

CPTR 

,IF  NOT  READY, 

JZ 

CONOT! 

READY  WHEN  HIGH. 

MOV 

A.C 

GET  CHARACTER. 

OUT 

CDATA 

.PRINT  IT. 

RET 

IRETURN. 

CONUL: 

PUSH 

B 

;SAVE  BAC. 

MVI 

B, CNULL 

GET  NULL  COUNT. 

CONUL1: 

CALL 

CONOT 1 

PRINT  CR. 

MVI 

C.O 

GET  NULL  CHAR. 

OCR 

B 

iOECREMENT  COUNTER. 

JNZ 

CONUL 1 

DO  NEXT 

NULL. 

POP 

B 

RESTORE 

BAC. 

MOV 

A.C 

RESTORE 

A. 

RET 

RETURN. 
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I 


L 


MOVE  DISK  TO  TRACK  ZERO. 


HOME;  MVI  A,ODOH 

our  DCOM 
XRA  A 

srA  rRK 

HOME!:  IN  DSTAT 

RRC 

JC  HOME1 
MVI  A, 3 
OUT  DCOM 
IN  WAIT 
ORA  A 
JH  HERR 
IN  DSTAT 
MOV  D,A 
ANI  H 
J2  HERR 
MOV  A,D 
ANI  91H 
fiZ 

HERR:  LXI  H.HEMSC 

MOV  A.O 
ANI  91H 
MOV  D.A 
JMP  ERMSO 


;CLEAR  AMY  PENDING  COMMAND. 

;ZERO  ACC 
STORE  TRACK 
READ  DISK  STATUS, 

;LOOK  AT  LS8. 

WAIT  FOR  NOT  BUSY. 

20  MS  STEP  RATE. 

ISSUE  HOME  COMMAND. 

WAIT  FOR  INTRO. 

SET  FLAGS. 

ERROR  IF  DRO. 

READ  DISK  STATUS. 

SAVE  IM  register  D, 

LOOK  AT  BIT  2. 

ERROR  IF  NOT  TRK  0. 

GET  STATUS  BACK. 

MASK  NON-ERROR  BITS. 

RETURN  IF  NO  ERROR. 

PRINT  "HOME  ". 

MASK  NON-ERROR  BITS. 


;D0  COMMON  ERROR  MSGS. 


SELECT  DISK  NUMBER. 


INTDSK;  MVI  A, 02  jDRIVE  NO.  1 

DSKI;  OUT  DCONI  ;SET  THE  LATCH  WITH  CODE. 

RET  ;BETUR«  FROM  SELDSK. 


READ  THE  SECTOR  AT  SECT,  FROM  THE  PRESENT  TRACK. 
SECTOR  IN  SECT 
HEAD  LOAD  FIRST 


READ: 

LXI 

LDA 

H.oeOH 

SECT 

;READ  BUFFER 

READ1: 

OUT 

SECTP 

;SET  SECTOR  INTO  \1T\ . 

MVI 

A,8CH 

jCODE  FOR  BEAD  W/0  HD  LD. 

READE; 

OUT 

DCOM 

jSEND  COMMAND  TO  1771. 

RLOOP: 

IN 

WAIT 

jHAIT  FOR  DRO  OR  INTRQ. 

ORA 

A 

;SET  FLAGS. 

JP 

RDDONE 

jDONE  IF  INTRO. 

IN 

DDATA 

jREAD  A  DATA  BYTE  FROM  DISK, 

f 

MOV 

M.A 

•.STORE  IN  BUFFER 

INX 

H 

;INC  BUFF  POINTER 

f 

JMP 

RLOOP 

;  COMPARE  DATA  WITH  TEST 

BYTE; 

RDDONE: 

LXI 

H.oeoH 

.•HEAP  OF  BUFFER 

LDA 

PATEN 

.-TEST  PATTERN 

MOV 

B,A 

•.PATTERN  TO  B 

MVI 

D.OgOH 

: COUNTER  FOR  BYTES 

COM  PL  P: 

MOV 

A,M 

:CET  DATA 

CMP 

B 

;COMPARE  WITH  IB 

JNZ 

DATERR 

.•ERROR 

ERRET; 

INX 

H 

OCR 

0 

.•DEC  BYTE  COUNT 

JNZ 

COMPLP 

;D0  128  TIMES 

IN 

DSTAI 

;REA0  DISK  STATUS. 

ANI 

9DH 

;L00K  AT  ERROR  BITS. 

MOV 

D,A 

;SAVE  ERROR  BITS 

LDA 

ERRFLG 

;REAO  ERROR  FLAG 

ORA 

RZ 

0 

;SET  FLAGS  ON  COMBO 
IRETURK  IF  NONE. 

LXI 

H.RDMSC 

.•PRINT  "READ  •. 

ERMSG: 

CALL 

PMSG 

;PRINT  ORIGIN  MESSAGE. 
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COMMON  ERROR  PRINT  OUT 


ERMSG1 

:  MOV 

A.D 

ANI 

80H 

LXI 

H.NRMSG 

CNZ 

PMSG 

MOV 

A.D 

ANI 

10H 

LXI 

H.RNMSG 

CNZ 

PMSG 

MOV 

A.D 

ANI 

8H 

LXI 

H.CRCMSG 

CNZ 

PMSG 

MOV 

A,D 

ANI 

RH 

LXI 

H.LDMSG 

CNZ 

PMSG 

MOV 

A,  D 

ANI 

1 

LXI 

H.BSYMSG 

CNZ 

PMSG 

PERMSG; 

;  LXI 

ri.ERRMSG 

CALL 

PMSG 

MOV 

A.D 

ANI 

18H 

JZ 

RETRY 

TRKCHK; 

l  MVI 

A, DC  UH 

OUT 

DCOM 

IN 

WAIT 

IN 

DDATA 

STA 

BDTRK 

CHKS2 

IN 

WAIT 

JM 

CHKS2 

LXI 

H.MSCS 

CALL 

PMSG 

LXI 

H,MSG6 

CALL 

PMSG 

MVI 

D.05H 

CALL 

BLNK 

LDA 

BDTRK 

MOV 

D.A 

CALL 

BINHA 

MVI 

D.  15H 

CALL 

BLNK 

IN 

TRACK 

MOV 

D.A 

CALL 

BINHA 

MVI 

D,  13H 

CALL 

BLNK 

LDA 

SECT 

MOV 

D.A 

CALL 

BINHA 

RETRY: 

LDA 

ERRFLG 

ORA 

A 

CNZ 

ERRPNT 

IN 

CDATA 

IN 

OFFH 

ANI 

01H 

JNZ 

CONT 

LXI 

H.MSGS 

CALL 

PMSG 

CALL 

CONIN 

CPI 

•R' 

JZ 

FIX 

CPI 

•C 

JZ 

HLT 

CONT 

FIX: 

MVI 

A, 01 

STA 

REPETE 

CALL 

CRLF 

:ge;  error  bits. 

:IF  BIT  7  HIGH, 

•."NOT  RERDT". 

;GET  ERROR  BITS. 

:IF  BIT  <I  IS  HIGH, 

JPRINT  "RECORD  NOT  FOUND" 

;GET  ERROR  BITS. 

:IF  BIT  3  IS  HIGH, 

;PRINI  "CRC  ERROR". 

;CEI  ERROR  BITS. 

;1F  BIT  2  IS  HIGH, 

JPRINT  "LOST  DATA". 

:GET  ERROR  BITS. 

:IF  BIT  1  IS  HIGH, 

:PRINT  "BUSY". 

;PR1NT  "ERROR." 

;MOVE  FLAGS  TO  ACC 
;CRC  OR  RECORD  NOT  FOUND 


;READ  ADDRESS 
;TRACK  ADDRESS 
:DUMP  REST  OF  DATA 
;HEAD  ERROR  MESSAGE 
; HEADINGS 

JSPACE  OVER 
:DISK  TRK 

;PHINT  TRK 

:SPACE  OVER 

;PRINT  TRK 


;SECTOR 

JPRINT  SECTO  HO. 

;SET  FLAGS 

:CO  TO  READ  CHECK  ERROR  PRINT 
JCLEAR  KEYBOARD 
:READ  SENSE  SWITCHES 
ISWITCH  0 


-.REQUEST  INPUT 
;READ  KEYS 
; CHECK  FOR  R 

; CHECK  FOR  C 


:SET  REPETE  FLAG 
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1 

'  CALL  CRLF 

RET 

CONT:  CALL  CRLF 

CALL  CRLF 

RET 

DATERR;  STA 

BADBT 

;SAVE  BAD  BTTE 

LDA 

ERRFLG 

;LOAD  ERROR  COUNT 

INR 

A 

STA 

ERRFLG 

;NEW  COUNT 

JHP 

ERRET 

jRETURN 

WRITE  THE 

SECTOR  AT 

SECT,  ON  THE  PRESENT  TRACK. 

USE  STARTING  ADDRESS 

AT  DHAADD. 

LOAD  HEAD 

FIRST 

> 

IRITE:  LDA 

PATEN 

MOV 

B,A 

:TEST  PATTERN  IN  B 

LCA 

SECT 

JLOAD  SECTOR 

WRITE1;  OUT 

SECTP 

:SET  THE  SECTOR  INTO  1771. 

MVI 

A.OACH 

:SET  UP  1771  FOR  WRITE. 

OUT 

DCOM 

WLOOP:  IN 

WAIT 

:WAIT  FOR  READY. 

ORA 

A 

-.SET  FLAGS. 

JP 

WDONE 

;HOP  OUT  WHEN  DONE. 

i  INSERT 

PATTERN  HERE 

HOV 

> 

A.B 

JLOAD  TEST  PATTERN 

OUT 

DDATA 

:WRITE  ONTO  DISK. 

INX 

H 

:INCREMENI  MEM  PTR. 

J«P 

WLOOP 

•.KEEP  WRITING. 

'  WDONE;  IN 

DSTAT 

JREAD  DISK  STATUS. 

ANI 

OFDH 

;LOOK  AT  THESE  BITS. 

MOV 

D.A 

:SAVE  STATUS  BITS 

PROCER:  R2 

IRETURN  IF  NO  ERR. 

WERRO;  LXI 

H.WTMSG 

•.PRINT  "WRITE  ". 

CALL 

PMSG 

MOV 

A.D 

JGET  ERROR  BITS. 

ANI 

UOH 

:LOOK  AT  BIT  6. 

LXI 

H.WPMSG 

[PRINT  "PROTECT  ". 

CNZ 

PMSG 

MOV 

A.D 

[GET  ERROR  BITS. 

ANI 

20H 

[LOOK  at  BIT  5. 

LXI 

H.WFMSG 

[PRINT  "FAULT  ". 

CNZ 

PMSG 

JMP 

ERMSG1 

[DO  COMMON  MESSAGES. 

;  MOVE  THE  HEAD  TO  THE 

TRACK  IN  REGISTER  A. 

SEEK:  OUT 

DDATA 

[TRACK  TO  DATA  REGISTER. 

BUST:  IN 

DSTAT 

[READ  DISK  STATUS. 

RRC 

[LOOK  AT  BIT  0. 

JC 

BUST 

[WAIT  TILL  NOT  BUST. 

MVI 

A,12H 

[SET  FOR  10  MS  STEP. 

ORI 

A 

[VERIFY  ON  LAST  TRACK. 

OUT 

DCOM 

[ISSUE  SEEK  COMMAND. 

IN 

WAIT 

[WAIT  FOR  INTRO. 

IN 

DSTAT 

[READ  STATUS. 

ANI 

91H 

[LOOK  AT  BITS. 

MOV 

D.A 

[  SAVE  STATUS 

RZ 

[RETURN  IF  NO  ERROR 

LXI 

H.SKMSG 

[PRINT  "SEEK  ". 

JMP 

ERMSG 

[DO  COMMON  ERR  MESSAGES. 

:  PRINT  THE  MESSAGE  AT  HAL  UNTIL  A  ZERO. 

PMSO:  MOV 

A.M 

[GET  A  CHARACTER. 

ORA 

A 

[IF  IT’S  ZERO, 

RZ 

[RETURN. 

MOV 

C.A 

[OTHERWISE, 

CALL 

CONOT 

[PRINT  IT. 

INX 

H 

[INCREMENT  HAL, 

JMP 

PMSG 

[AND  GET  ANOTHER. 

50 

•  CBIOS  MESSAGES 


RENT 

EQU 

OOOOH 

;HONITOR  ENTRY 

NRMSG: 

DB 

■NOT  READY 

'  .0 

RNMSG: 

DB 

•RECORD  NOT  FOUND  ’,0 

CRCMSG: 

DB 

•CRC  ',0 

LDMSG: 

DB 

•LOST  DATA 

*  rO 

BSYMSG: 

DB 

•BUSY  ’,0 

WPMSG: 

DB 

•PROTECT 

0 

WFMSC: 

DB 

•FAULT  ',0 

ERRMSG: 

DB 

•ERROR. • ,0 

RDMSG: 

DB 

ODH.OAH, ‘READ  *,0 

wrMSG; 

OB 

ODH.OAH, •WRITE  ',0 

SXMSG: 

DB 

OOH.OAH. •SEEK  *.0 

HEMSG: 

DB 

ODH.OAH, ‘HOME  *,0 

HNTMSG: 

DB 

ODH.OAH, •MOUNT  ’,0 

;  PRINr  8 

"bTtTorFTn 

BINARY  FORMAT 

t  t  f  t  * 

INPUT:  data  IN 

REG  A 

BITS: 

MOV 

B.A 

:  DATA 

MVI 

A.eOH 

;  MASK 

OVER: 

MVI 

C,30H 

MOV 

E.A 

;  STORE  MASK 

ANA 

B 

;  AND  WITH  MASK 

JZ 

PRNT 

;  JUMP  IF  ZERO 

MVI 

C,31H 

PRNT: 

CALL 

CONOT 

ANA 

b 

:  ZERO  CARRY 

MOV 

A.E 

;  LOAD  MASK 

RAR 

JNC 

OVER 

RET 

BLNK: 

MVI 

C,20H 

:PRINT  BLANKS, 

*  IN 

LP1 : 

CALL 

CONOn 

OCR 

0 

JNZ 

LP1 

RET 

BINHA: 

MOV 

A.D 

RAR 

RAR 

RAR 

RAR 

CALL 

BIN1 

MOV 

C.A 

CALL 

CONOT 

MOV 

A.D 

CALL 

BIN1 

MOV 

C.A 

CALL 

CONOT 

» 

RET 

1  #  t  »  » 

:  OUTPUTS 

FOUR  HEX  DIGITS  IN  ASCII 

ENTER  WITH  DATA  IN 

REG  PAIR  E  AND  D 

BIKB;  CALL  BINHA 

MOV  D,E 

CALL  BINHA 
RET 
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:  CCHVERTS 
:  INPUT:  A 
:  OUTPUT: 

HEX  TO  ASCII 
BITS  HEX  REG 
8  BIT  ASSCII 

1  »  1 

BIN1:  ANI 

OFH 

ADI 

30H 

CPI 

3AH 

RC 

ADI 

07H 

RET 

INirUrE  SIO  PORTS 


I  *  f  t  t  t  t  I 


INITA:  MVI  A.OAAH 

OUT  CSTAT 

MVI  A.AOH 

OUT  CSTAT 

MVI  A.OCEH 

OUT  CSTAT 

MVI  A,37H 

OUT  CSTAT 

RET 


/GET  DUMMY  MODE  WORD 
-.OUTPUT  IT 
;GET  RESET  BIT 
jRESET  SIO  BOARD 
iCET  REAL  MODE  WORD 
:SET  THE  MODE  FOR  REAL 
;GEI  THE  COMMAND 
iOUTPJT  IT 


CRLF: 

MVI 

c.  13 

LF: 

CALL 

coNor 

MVI 

C,  10 

CALL 

CONOTl 

MVI 

C,7FH 

CALL 

CONOTl 

CALL 

CONOT 

RET 


;CR 

;LF 


END 
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Section  8 


Track  Write  Routine 

8 . 1  General  Description 

The  track  write  routine  is  not  a  diagnostic  test, 
hut  rather  a  programmed  aid  to  be  used  during  disk  drive 
maintenance  and  alignment.  When  executed,  an  entire  track, 
as  selected  in  the  sense  switches,  is  repeatedly  written 
with  an  all  ones  pattern. 

8 . 2  Program  Details 

The  disk  track  write  routine  does  not  test  the 
data  written,  but  it  does  test  and  report  on  the  ability 
of  the  disk  drive  to  load  the  read/write  head  and  to 
move  it  to  a  selected  track. 

The  track  write  routine  reads  the  IMSAI  8080 
front  panel  sense  switches  for  the  desired  track.  Error 
checking  is  performed  to  test  if  the  selected  track  is 
greater  than  76,  the  last  track.  If  the  selected  track 
number  is  greater  than  76,  the  front  panel  sense  lites 
oscillate  and  no  writing  is  performed. 

If  the  selected  track  number  is  valid,  a  seek 
to  that  track  is  performed.  The  read/write  head  is  then 
loaded  and  full  track  writing  can  begin  at  the  next  index 
marker.  The  entire  track  is  written  with  all  ones  until 
the  index  mark  is  reached  again.  The  track  is  repeatedly 
written  until  a  new  track  is  selected  by  the  operator. 
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This  continuous  writing  can  be  very  valuable 
when  troubleshooting  or  aligning  the  disk  drive  heads 
and  read/write  circuitry  as  outlined  in  the  Pertec  disk 
drive  manual . 

8 . 3  Ooeration 

Upon  entering  the  program,  the  routine  will 
request  that  a  scratch  disk  be  mounted.  The  scratch  disk 
does  not  need  to  be  formatted  for  this  routine.  After 
the  scratch  disk  is  loaded,  the  desired  track  should  be 
set  in  the  sense  switches  and  then  type  a  ’Y*  on  the  con¬ 
sole  to  begin.  The  drive  will  then  perform  a  seek  to  that 
track  and  begin  writing. 

The  track  number  may  be  changed  at  any  time  and 
the  sequence  will  begin  on  the  new  track.  A  convenient 
way  to  stop  the  writing  at  any  time  is  to  raise  the  left 
most  sense  switch  which  halts  the  write  operations  by 
forcing  a  large  track  number. 

Some  drive  error  messages  ask  the  operator 
whether  to  abort  or  continue  after  the  error. 

The  track  write  routine  is  stored  in  programmable 
memory  on  the  diagnostic  memory  board.  The  write  routine 
can  be  run  under  the  diagnostic  operating  system  test 
controller,  or  it  can  be  started  from  the  IMSAI  8080  front 
panel  at  a  starting  address  of  'CD80'  Hex. 

The  track  write  routine  is  also  stored  on  floppy 
disk  and  it  can  be  invoked  by  the  CPM  operating  system. 
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iPRA: 

EflRLP; 

EPPLPS: 


DELAE: 

DELP: 

DELATA: 

DELPA: 


t^VI 

HIV 

CHA 

OUT 

LXI 

LXI 

lAO 

JNC 

MOV 

IN 

CPI 

JNC 

LXI 

LXI 

DAD 

JNC 

LXI 

LXI 

DAD 

JNC 

JMP 


B,  OF  OH 
X.B 

OFFH 

D.OtH 

H.OOOH 

D 

ERPLPB 

B.A 

OFFH 

77 

ERRLP 

H,0 

D,01H 

D 

OELP 

H,0 

D,01H 

D 

DELPA 

STARIC 


iDELAI  LOOP 

:SEE  IF  SWITCHES  FIXED 
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i: 

:b 

5  r  ^  t  A  H 

‘AH.'Dr.GV  rrADK  -Fir?: 

ZB 

■r-Df^,  jAr , 

LOAD  DCPAICH  DISK  rr?£  f  WHEN  ',0 

Z3 

ODH»  DAH, 

??  •  ,0 

LPC.V-; 

DS 

T 

;SPACE  FOR  LDCP  COoSTER 

3A:3 

r . 

CS 

1 

[SPACE  FO.P  BAD  BYTE 

BuTSK; 

DS 

? 

[SPACE  FOR  DISK  READ  TRK  WHEN  ERR 

Msai 

DB 

ODH.OAH, 

DISK  TEST  NO.  1  FOR'^AIIED  TEST  ',0 

‘-SGU: 

DB 

ODH, OAH, 

LOAD  SCPAICH  DISK  TYPE  Y  HHEN  PEADY’,0 

MS32 

D3 

ODH.OAH, 

END  OF  PASS  •  ,0 

>1533 

DB 

OCH.OAH, 

DATA  ERROR  ON  DISK  CHECK  ERROR  CCUMT  IN  -.-.X  '  ,C 

MSGU 

CB 

OOH.CAH, 

r?ACK  so.  s£c:o?  so.  res:  s'jtb  las 

"SC5 

:3 

ODH , CAH, 

HEAD  POSinOH  ‘  ,0 

DB 

CuH , DAH , 

DISK  TRACK  CONTROLLER  TRACK  SECTOR 

MSG** 

DB 

DDH.CAH,- 

)DK,SAH,*  W  STSPPED  •! 

>1303 

ce 

C:h. CAH, 

TYPE  R  rO  PETRY,  C  TO  CCsriSJE.  ANYTHING  ELSE  STD?  ’.C 

CSTA 

f 

EOJ 

3 

console  status  port. 

CCCM 

ECJ 

3 

SCNSCLE  CC‘*MASD  POFT. 

CDA  :a 

ECJ 

2 

console  data  PORI. 

CKBR 

E3J 

00000010B 

keyboard  ready  sir. 

CPTR 

EOJ 

OOOOOOOlB 

PRINT  READY  BIT. 

CNJLL 

ECU 

1 

CONSOLE  NULL  COUNT. 

;is;< 

E5J 

0F3H 

DISK  SASE  ADDRESS. 

oc:w 

EQJ 

DISK 

DISK  COMMAND  PORT. 

DSTA 

• 

ECJ 

DISK 

DISK  STATUS  PORI. 

r?ACK 

Ecy 

DISK*! 

DISK  TRACK  PORT. 

Si  C  T 

9 

E3J 

DI3K*2 

DISK  SECTOR  PORT. 

23A  TA 

ECJ 

0:SK»3 

DISK  DATA  PORT. 

tiAiT 

E3J 

DI3R*M 

DISK  WATT  PORT. 

DCONT 

EQJ 

0I3K-A 

DISK  CONTROL  PORT. 

rRK: 

OS 

1 

[ADDRESS  FOR  TRACK 

SECT 

OS 

T 

[ADDRESS  FOR  SECTOR 

■  rea: 

A  character  from  coxsou. 

CCNIM: 

IN 

CSTAT 

[READ  CONSOLE  STATUS. 

an: 

CK8R 

IF  NOT  READY, 

JZ 

COMIH 

READY  WHEN  HIGH. 

IN 

COATA 

READ  A  CHARACTER. 

our 

CDATA 

am: 

TFH 

MAKE  MOST  SIC.  BIT  =0. 

RET 

•  tfP 

'TE 

A  CHARACTER  TO  THE  CONSOLE  DEVICE. 

CONC 

r: 

MVI 

A.CDH 

IF  IT'S  A  CR, 

CMP 

c 

THEN  HOP  OUT 

JZ 

CONUL 

TO  NULL  ROUTINE. 

CONOT1: 

IN 

CSTAT 

READ  CONSOLE  STATUS. 

ANI 

CPTR 

IF  NOT  READY, 

JZ 

C0K0T1 

READY  WHEN  HIGH. 

MOV 

A,C 

GET  CHARACTER. 

our 

COA  TA 

PRINT  IT. 

RET 

RETURN. 

COXyL; 

PUSH 

B 

SAVE  B4C. 

MVI 

B, CXULL 

GET  NULL  COUNT. 

C0XUL1: 

call 

coNon 

PRINT  CR. 

MVI 

c.o 

GET  NULL  CHAR. 

OCR 

8 

DECREMENT  COUNTER. 

UXZ 

COKULt 

DO  NEXT  NULL. 

POP 

B 

RESTORE  BiC. 

MOV 

A.C 

RESTORE  A. 

PET 

RETURN, 
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v-  ::sK  r: 


-p.c<  z^?.o. 


* 

DCOM 

A 

rsK 

DSTAT 


'^oy  D,A 

an:  h 


CXI  H.HEMSC 
MOV  A,D 

an:  giH 

MOV  D,A 
JMP  ESMSC 


;':lea=>  any  ?;>iO;NO  ; 

;ZEP':  ACC 

:crc^E  r»ACK 
;READ  crcic  STAruS. 
:LOri<(  AT  LSB. 

;«A:r  fcp  sot  bcsy. 
:PO  MS  STEP  rate. 

; :3S JE  HOME  COMMAND. 
;'«A;r  FOR  INTRO. 

;5ET  FLAGS. 

■•EFRCR  IF  DRO. 

;SEAD  DISK  STATJS. 
;SAVE  IN  REGISTER  D. 
iLOCX  AT  BIT  2. 

;ERROR  IF  NOT  TRif  D. 
:OET  SIATJS  BACK. 
JMASK  NCN-ERRor  BITS. 
;P£TJ.RN  IF  NO  ERROR. 
.-PRINT  "HOME  ». 

.-mask  non-error  BITS. 


■^nr  t„MSC  ;DO  COMMON  ERROR  MSGS. 

■^SMSG:  call  PMSG  jRrtnt  ORIGIN  MESSAGE. 

COMMON  ERROR  PRINT  OUT 


ERMSG);  MOV 

A.O 

ANI 

SOH 

LXI 

H. NRMSG 

CN2 

PMSG 

MCV 

A.O 

ANI 

10H 

LXI 

H, RNMSG 

csz 

PMSG 

MOV 

A,  D 

ANI 

3H 

LXI 

H.CRCMSG 

CSZ 

PMSG 

MOV 

A,  D 

ANI 

AH 

LXI 

H.LDMSG 

CNZ 

PMSG 

MOV 

A,D 

ANI 

1 

LXI 

H,  BSYMSG 

CNZ 

PMSG 

RFRMSG;  LXI 

H, ERRMSC 

CALL 

PMSG 

MOV 

A.D 

ANI 

JZ 

TRKCHK:  MVI 


\8H 

RETRY 

A.OCUH 

DCOM 

WAIT 

ODATA 

BDTHK 

WAIT 

CHICS2 

H.MSG5 

PMSG 

H,MSG6 

PMSG 

D.OSH 

blnk 


;GET  ERROR  BITS. 

:IF  aiT  7  HIGH, 
i'NOT  READY". 

:GET  ERROR  BITS. 

;IF  BIT  a  IS  HIGH, 

IPRINT  "RECORD  NOT  FOUND" 

ICET  ERROR  SITS. 

3  IS  HIGH, 

-.PRINT  '  CRC  ERROR". 

:CET  ERROR  BITS. 

:IF  BIT  J  IS  HIGH. 
iPRlNI  "LOST  DAIA". 

-.get  error  bits. 

;IF  BIT  I  IS  HIGH, 

.-PRINT  "BUSY". 

IPHINT  "ERROR." 

;MCyE  FLAGS  TO  ACC 
;CRC  OR  RECORD  MOT  FOUND 

;READ  ADDRESS 
iTRACK  ADDRESS 

;dump  rest  of  data 
-.head  error  message 
JHEADINCS 


ISPACE  OVER 


LDA  BOTRK 

MOV  D,A 

CALL  BINHA 

MVI  D,15H 

CALL  BLNK 

IN  TRACK 

MOV  D.A 

CALL  BINHA 

MVI  D,13H 

CALL  BLNK 

LDA  SECT 

MOV  0,A 

CALL  BINHA 

RETRY;  IN  CDATA 

IN  OFFH 

ANI  08OH 

JNZ  CCNT 

LXI  H,MSG8 

CALL  PH3G 

CALL  CONIN 


CPI 

'R  ' 

J2 

FIX 

CPI 

•C' 

JZ 

CONT 

HLT 

FIX: 

MVI 

A, 01 

CALL 

CRLF 

CALL 

CRLF 

RET 

CONT; 

CALL 

CRLF 

CALL 

CRLF 

• 

RET 

} 

WDONE; 

IN 

DSTAT 

ANI 

OFDH 

MOV 

D,A 

PROCER: 

RZ 

WERRO: 

LXI 

H.WTMSG 

CALL 

PMSG 

MOV 

A,0 

ANI 

aoH 

LXI 

H.WPMSC 

CN2 

PMSG 

MOV 

A.D 

ANI 

EOH 

LXI 

H.WFMSC 

CN2 

PMSG 

JMP 

ERMSG- 

;DISK  IRK 
[PRINT  TRK 
SPACE  OVER 


:PRINT  TRK 


: SEC TOR 

;PRINT  SECTO  NO. 
;CLEAR  keyboard 

:read  sense  switches 

:swircH  0 


;REOiJEST  INPUT 
:READ  KEYS 
: CHECK  FOR  R 

•.CHECK  FOR  C 


:SET  repete  flag 


:READ  DISK  STATUS. 
;LOOK  AT  THESE  BITS. 
:SAVE  STATUS  BITS 
; RETURN  IF  NO  ERR. 
;PRINT  "WRITE  ". 

:GET  ERROR  BITS. 
:LOOK  AT  BIT  6. 
IPRINT  "PROTECT  ». 

:GET  ERROR  BITS. 
:LOOK  AT  BIT  5, 
:PRiNT  "Fault  » . 

:D0  COMMON  MESSAGES. 


MOVE  THE  HEAD  TO  THE  TRACK  IN  REGISTER  A. 


SEEK:  OUT  DDAIA 

BUSY;  IN  OSTAT 

RRC 

JC  BUSY 
MVI  A,12H 
OUT  DCOM 
IN  WAIT 
IN  DSTAT 
AKI  91H 
MOV  D.A 
RZ 

LXI  H.SKMSG 
iMP  ERMSC 


•.TRACK  TO  DATA  REGISTER. 

;read  disk  status. 

•.LOOK  AT  BIT  0. 

:WAIT  TILL  NOT  BUSY. 

-.SET  FOR  10  MS  STEP. 

: ISSUE  seek  command. 

-.WAIT  for  INTRQ. 

:READ  STATUS. 

;LOOK  AT  BITS. 

;  SAVE  STATUS 
:return  if  no  error 
.•PRINT  -SEEK  ", 

;D0  COMMON  ERR  MESSAGES. 


PRINT  THE  MESSAGE  AT  HAL  UNTIL  A  ZERO. 


PMSG:  MOV  A.M 

ORA  A 
RZ 

NOV  C.A 
CALL  CONOT 
INX  H 
JMP  PMSG 


;CET  A  character. 
.•IF  IT’S  ZERO. 
;RETURN. 
lOTHERWISE, 
iPBINT  IT. 
:INCREMENT  HAL, 

:and  get  another. 
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1 


•  CBrOS  MRSSAGKS 


RENT 

EQU 

OOOOH  ;MONirOR  ENTRY 

NRMSG; 

DB 

■NOT  READY  *,0 

RfJHSG; 

DB 

■RECORD  NOT  FOUND  ’ ,0 

CRCMSG: 

D8 

■CRC  ',0 

LDMSC: 

DB 

■LOST  DATA  '  ,0 

BSYM3G; 

DB 

■BUSY  ’,0 

HPMSG; 

OB 

■PROTECT  ',0 

WFMSG: 

DB 

•FAULT  ',0 

ERRMSG: 

DB 

■ERROR. • ,0 

RDMSG; 

DB 

OOH.OAH, ■read  • 

,0 

WTMSG: 

DB 

ODH.OAH, 'WRITE 

’,0 

SXMSG; 

DB 

ODH.OAH.'SEEK  • 
ODH.OAH, 'HOME  ' 

,0 

HEMSG: 

DB 

,0 

KNTMSG; 

08 

ODH.OAH, 'MOUNT 

'  .0 

BLNK; 

MVI 

C,  20H 

;PR1NT  BLANKS 

LPl : 

CALL 

CONOn 

DCR 

D 

JNZ 

LPl 

RET 

BINHA: 

MOV 

A,D 

RAR 

RAR 

RAR 

RAR 

CALL 

BINl 

MOV 

C.A 

CALL 

CONOT 

MOV 

A.D 

CALL 

BINl 

MOV 

C,A 

CALL 

CONOT 

RET 

OUTPUTS  FOUR  HEX  DIGITS  IN  tSCll 
ENTER  WITH  DATA  IN  REO  PAIR  E  AND  D 


BINS;  CALL  BINHA 

MOV  D,E 

CALL  BINHA 
RET 


CONVERTS  HEX  TO  ASCII 
INPUT:  A  BITS  HEX  REG  A 
OUTPUT;  8  BIT  ASSCII  REO  A 


ANI 

OFH 

ADI 

30H 

CPI 

3AH 

RC 

ADI 

07H 

RET 

IN  REG.  D 
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INITIATE 

SIO  PORTS 

t  }  1  1  1 

INITA 

i  1  1  1  1  t  t  t 

MVI 

A.OAAH 

GET  DUMMY  MODE  WORD 

OUT 

CSTAT 

OUTPUT  IT 

MVI 

A.UOH 

GET  RESET  BIT 

OUT 

CSTAT 

RESET  SIO  BOARD 

MVI 

A.OCEH 

GET  REAL  MODE  WORD 

OUT 

CSTAT 

SET  THE  MODE  FOR  REAL 

MVI 

A,37H 

GET  THE  COMMAND 

OUT 

CSTAT 

OUTPUT  IT 

RET 

CRLF: 

MVI 

C,  13 

CR 

CALL 

CONOT 

LF: 

MVI 

C,  10 

LF 

CALL 

CONOT1 

MVI 

C,7FH 

CALL 

C0N0T1 

CALL 

CONOT 

RET 

6i 


Section  9 
Track  Read  Routine 


9.1  General  Description 

The  Track  Read  Routine  is  not  a  diagnostic  test, 
but  rather  a  programmed  aid  to  be  used  during  disk  drive 
maintenance  and  alignment.  Vi/hen  executed,  an  entire 
track  as  selected  on  the  sense  switches,  is  repeatedly  read. 

9.2  Program  Details 

The  disk  drive  read  routine  does  not  save  or 
test  the  data  being  read,  but  it  does  test  and  report  on 
the  ability  of  the  disk  drive  to  load  the  read/write  head 
and  to  move  it  to  a  selected  track. 

The  track  read  routine  reads  the  IMSAI  8080  front 
panel  sense  switches  for  the  desired  track.  Error  checking 
is  performed  to  test  if  the  selected  track  number  is 
greater  than  76,  the  last  track.  If  the  selected  number 
is  greater  than  76,  the  front  panel  sense  lites  oscillate 
and  no  reading  is  performed. 

If  the  track  number  is  valid,  a  seek  to  that  track 
is  performed.  The  read/write  head  is  then  loaded  so  full 
track  reading  can  begin  on  the  next  index  marker.  The 
entire  track  is  read,  but  the  data  is  not  saved.  The 
track  is  repeatedly  read  until  a  new  track  is  selected  by 
the  operator. 

This  continous  reading  can  be  very  valuable  when 
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trouble  shooting  or  aligning  the  disk  head  or  read/write 
circuitry  as  outlined  in  the  Pertec  disk  drive  manual. 

9.3  Oneration 

Upon  entering  the  program,  the  routine  will 
request  that  a  scratch  disk  be  mounted.  The  scratch 
disk  does  not  need  to  be  formatted  for  this  I'outine. 

After  a  scratch  disk  is  loaded,  the  desired  track  should 
be  set  in  the  sense  switches  a.  then  type  a  'Y'  on  the 
console  to  begin.  The  drive  will  then  perform  a  seek  to 
that  track  and  begin  reading. 

The  track  number  may  be  changed  at  anytime  and 
the  sequence  will  begin  on  the  new  track.  A  convenient 
way  to  stop  the  reading  at  any  time  is  to  raise  the  left 
most  sense  switch  which  halts  the  read  operations  by  forc¬ 
ing  a  large  track  number. 

Some  drive  error  asks  the  operator  whether  to 
abort  or  continue  after  the  error. 

The  track  read  routine  is  stored  in  programmable 
memory  on  the  diagnostic  board.  The  read  routine  can 
be  run  under  the  diagnostic  operating  system  test  con¬ 
troller,  or  it  can  be  started  from  the  IMSAI  8080  front 
panel  at  a  starting  address  of  ’CE40'. 

The  read  routine  is  also  stored  on  floppy  disk 
and  it  can  be  invoked  by  the  CPM  operating  system  under 
file  name  'RDTRK.COM' . 
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DISC  TEST  FULL  TRACK  READ 

SELECT  TRACK  IN  SENSE  SWITCHES 
DISC  VERSION 
BRIAN  DONLAN 
JUNE  79 


ORG 

0100H 

ENTRYA:  JMP 

STARTA 

ENTRYB:  LXI 
SPHL 
DI 

H,080H 

CALL 

INITA 

STARTA:  LXI 

H.MSdB 

READT:  call 

PMSG 

CALL 

CONIN 

CPI 

•Y' 

LXI 

h.msgba 

JNZ 

READT 

CALL 

HOME 

STARTS:  ORA 

A 

JNZ 

STARTA 

LXI 

H.STARTB 

PUSH 

H 

STARTC:  IN 

OFFH 

CPI 

77 

JNC 

CRRA 

SEEKA;  CALL 

SEEK 

MVI 

A.OESH 

OUT 

DCOM 

RDLP:  IN 

WAIT 

ORA 

A 

JP 

RDONE 

IN 

DDATA 

JMP 

t 

RDLP 

ERRLP: 

MOV 

CMA 

V  1  wr  vn 

A.B 

OUT 

OFFH 

LXI 

D.OIH 

LXI 

H.OOOH 

ERRLPB: 

DAD 

D 

JNC 

ERRLPB 

MOV 

B.A 

IN 

OFFH 

CPI 

77 

DELAY: 

JNC 

ERRLP 

LXI 

H,0 

DELP: 

LXI 

D.OIH 

DAD 

D 

JNC 

OELP 

DELAYA- 

LXI 

H.O 

LXI 

D,01H 

DELPA: 

DAO 

0 

JNC 

DELPA 

JMP 

STARTC 

;SEI  STACK 
IRESET  SIO 


:Read  keyboard 


;SET  FLAGS 
;ERROR  START  OVER 
JSUBROUTINE  RETURN 

;READ  SENSE  SWITCHES 
IPREVENT  TRACK  OVER-DRIVE 

;MOVE  HEAD  TO  TRACK 
:READ  TRACK  COMMAND 


:DELAI  LOOP 


:SEE  IF  SWITCHES  FIXED 
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RDONE: 

IN 

DSTAT 

;READ  STATUS 

ANI 

9DH 

MOV 

D,A 

RZ 

LKI 

H,  RDMSG 

iPRINT  'READ' 

JMP 

ERMSG 

MSGIB: 

DB 

ODH.OAH 

OAH, ‘DISK  TRACK  READ  ROUTINE' 

OB 

ODH.OAH 

■LOAD  SCRATCH  DISK  TYPE  Y  WHEN  READY  ',0 

MSG2A: 

DB 

ODH.OAH 

•??  • ,0 

LPCNT: 

DS 

1 

JSPACE  FOR  LOOP  COUNTER 

BADBT; 

DS 

t 

iSPACE  FOR  BAD  BYTE 

BDTRK; 

DS 

1 

JSPACE  FOR  DISK  READ  TRK  WHEN  ERR 

MSGl 

DB 

ODH.OAH, 

•DISK  TEST  NO.  1  FORMATTED  TEST  ',0 

MSGIA: 

DB 

ODH.OAH, 

•LOAD  SCRATCH  DISK  TYPE  Y  WHEN  READY ',0 

MSC2 

DB 

ODH.OAH 

•  END  OF  PASS  ',0 

MSG3 

DB 

ODH.OAH 

•DATA  ERROR  ON  DISK  CHECK  ERROR  COUNT 

IN  HEX  ' .0 

MSGU 

DB 

ODH.OAH 

•  TRACK  MO.  SECTOR  NO.  TEST  BYTE  LAST  ERROR '.ODf- 

MSGS 

OB 

ODH.OAH 

•HEAD  POSITION  *,0 

MSG6 

DB 

ODH.OAH 

•DISK  TRACK  CONTROLLER  TRACK 

SECTOR  '.ODH, OAH, 0 

MSG7 

DB 

ODH.OAH 

ODH.OAH,'  II  EXECUTION  STOPPED  It  ',0 

MSGS 

DB 

ODH , OAH 

•TYPE  R  TO  RETRY,  C  TO  CONTINUE,  ANYTHING 

ELSE  STOP  ' ,0 

CSTAT 

EOU 

3 

; console  STATUS  PORT. 

CCOM 

EOU 

3 

: CONSOLE  COMMAND  PORT. 

CDATA 

EQU 

2 

jCONSOLE  DATA  PORT. 

CKBR 

EOU 

0000001  OB 

•.keyboard  ready  bit. 

CPTR 

EOU 

00000001 B 

iPRlHT  READY  BIT. 

CNULL 

EOU 

1 

: CONSOLE  NULL  COUNT. 

DISK 

EOU 

0F8H 

iDISK  BASE  ADDRESS. 

DCOM 

EQU 

DISK 

:DISK  COMMAND  PORT. 

OS  TAT 

EOU 

DISK 

•.DISK  STATUS  PORT. 

TRACK 

EOU 

DISK-fl 

IDISK  TRACK  PORT. 

SECTP 

EQU 

DISK*2 

•.DISK  SECTOR  PORT. 

ODA  TA 

EQU 

DISK*3 

IDISK  DATA  PORT. 

WAIT 

EOU 

DISK*« 

•.DISK  WAIT  PORT. 

OCONT 

EOU 

DISK^A 

JDISK  CONTROL  PORT. 

TRK: 

DS 

1 

iaddress  for  track 

SECT 

DS 

1 

•.ADDRESS  FOR  SECTOR 

;  READ  A  CHARACTER  FROM  CONSOLE. 

CONIN:  IN  CSTAT  :BEAD  CONSOLE  STATUS. 


ANI 

CKBR 

;IF  NOT  READY, 

JZ 

CONIN 

; READY  WHEN  HIGH. 

IN 

CDATA 

;READ  A  CHARACTER. 

OUT 

CDATA 

ANI 

7FH 

•.MAKE  MOST  SIG.  BIT 

RET 

•  WRITE 

A  CHARACTER  TO 

THE  CONSOLE  DEVICE. 

CONOT: 

MVI 

A,  ODH 

;IF  IT’S  A  CR, 

CMP 

C 

-.THEN  HOP  OUT 

JZ 

CONUL 

:T0  NULL  ROUTINE. 

C0N0T1: 

IN 

CSTAT 

;RtAD  CONSOLE  STATUS 

ANI 

CPTR 

;IF  NOT  READY. 

JZ 

CONOT 1 

; READY  WHEN  HIGH. 

MOV 

A.C 

;CET  CHARACTER. 

OUT 

CDATA 

•.PRINT  IT. 

NET 

;RETURN. 

CONUL: 

PUSH 

B 

;SAVE  BtC. 

MVI 

B, CNULL 

;OFT  NOLL  COUNT. 

C0NJL1: 

CALL 

CONOT 1 

;PRINT  CR. 

MVI 

C.O 

;CET  NULL  CHAR. 

DCR 

6 

iDECREMENT  COUNTER. 

JNZ 

CONUL 1 

:D0  NEXT  NULL. 

POP 

B 

{RESTORE  BAC. 

MOV 

A.C 

{RESTORE  A. 

RET 

{RETURN. 
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;  disk  ro  track 


HOME; 


HOME1 : 


HERR: 


MVI 

our 

KRA 

STA 

IN 

RRC 

JC 

MVI 

our 

IN 

ORA 

JM 

IN 

MOV 

AN! 

JZ 

MOV 

ANI 

RZ 

LXI 

MOV 

AN! 

MOV 

JMP 


A ,CDOH 
DCOM 

A 

IRK 

dsiai 

HOMEI 

A. 3 
DCOM 
WAIT 
A 

HERR 

DSIAr 

D,A 

R 

HERR 

A,0 

91H 

H.HEMSG 

A,D 

91H 

D,A 

ERMSG 


•.CLEAR  AN'<  FEVSI-IO  C  -MMAVD 

.■ZERO  ACC 
iSrCRE  TRACK 

:Read  disk  status. 

;LOOK  AT  LSB. 

.-WAIT  FOR  SOT  Busy, 

;20  MS  STEP  RATE. 

; ISSUE  HOME  COMMAND. 

.•VAir  FOR  INTRO. 

:SEr  FLAGS. 

:error  if  dro. 

;read  disk  status. 

iSAVE  IN  REGISTER  D. 

:LOOK  AT  BIT  2. 

:ERROB  IF  NOT  TRK  0. 

:OET  STATUS  BACK. 

•.MASK  NON-ERROR  BITS. 
.•RETURN  IF  NO  ERROR 
IPRINT  "HOME  " 
iMASK  NON-ERROR  BITS. 


-.00  COMMON  ERROR  MSGS. 


ERMSG:  call  PMSG 


•.PRINT  ORIGIN  MESSAGE. 


COMMON  ERROR  PRINT  OUT 


ERMSCI:  MOV 
ANI 
LXI 
CNZ 
MOV 
ANI 
LXI 
CNZ 
MOV 
ANI 
LXI 
CNZ 
MOV 
ANI 
LXI 
CNZ 
MOV 
ANI 
LXI 
CNZ 

PERMSG;  LXI 
CALL 
MOV 
ANI 
JZ 

TRKCHK:  MVI 
OUT 
IN 
IN 
STA 
IN 
JH 
LXI 
CALL 
LXI 
CALL 
MVI 
CALL 
LDA 


CHKS2 


A.D 

80H 

H.NRMSG 

PMSG 

A.D 

10H 

H.RNMSG 

PMSG 

A,0 

8H 

H.CRCMSC 

PMSG 

A.D 

RH 

H.LDMSG 

PMSG 

A.D 

1 

H.BSTMSG 

PMSG 

H.ERRMSG 

PMSG 

A.D 

18H 

RETRT 

A.OCUH 

OCOM 

WAIT 

DDATA 

BDTRK 

WAIT 

CHKS2 

H.MSGS 

PMSG 

H.Msce 

PMSG 

O.OSH 

BLNK 

BDTRK 


■.GET  ERROR  BITS. 
.•IF  BIT  7  HIGH, 
;"NOT  READY". 


.•GET  error  BITS. 

;IF  BIT  R  IS  HIGH. 

;PRINT  "RECORD  NOT  FOUND" 


;IF  BIT  3  IS  HIGH, 
.•PRINT  "CRC  ERROR". 


.•ir  Bit  2  IS  HIGH, 
:PRINT  "LOST  DATA". 


;CET  error  BITS. 

BIT  1  IS  HIGH, 
JPFINT  "SUSY". 


;PRINT  "ERROR." 


•.MOVE  FLAGS  TO  ACC 
:CRC  OR  RECORD  NOT  FOUND 


:READ  ADDRESS 
! track  ADDRESS 
jDUMP  REST  OF  DATA 
;HEAD  ERROR  MESSAGE 

, -headings 


.•SPACE  OVER 
:D1SK  TRK 
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RETRY; 


FIX: 


CONT: 


MOV 

D.A 

CALL 

BINHA 

.PRINT  TBX 

MVI 

D.  15H 

CALL 

BLNK 

{SPACE  OVER 

IN 

TRACK 

MOV 

D.A 

CALL 

BINHA 

{PRINT  TRK 

MVI 

D.  13H 

CALL 

BLNK 

LDA 

SECT 

{SECTOR 

MOV 

D.A 

CALL 

BINHA 

{PRINT  SECTO  NO. 

IN 

COATA 

{CLEAR  KEYBOARD 

I N 

OFFH 

{READ  SENSE  SWITCHES 

ANI 

080H 

{SWITCH  0 

INZ 

CONT 

LXI 

H.MSGB 

CALL 

PHSG 

{REQUEST  INPUT 

CALL 

CONIN 

{READ  KEYS 

CPI 

'R' 

{CHECK  FOR  R 

JZ 

FIX 

CPI 

•C  • 

{CHECK  FOR  C 

JZ 

HLT 

CONT 

MVI 

A, 01 

{SET  REPETE  FLAG 

CALL 

CRLF 

CALL 

RET 

CRLF 

CALL 

CRLF 

CALL 

RET 

CRLF 

WDONE: 

IN 

DSTAT 

ANI 

OF  OH 

MOV 

D.A 

PROCER 

:  RZ 

HERHO: 

LXI 

H.WTMSG 

CALL 

PMSG 

MOV 

A.D 

ANI 

UOH 

LXI 

H.WPMSG 

CNZ 

PMSG 

MOV 

A.O 

ANI 

ZOH 

LXI 

H.WFMSG 

CNZ 

PMSG 

JMP 

ERMSC1 

{  MOVE 

THE  HEAD  TO  THE 

SEEK; 

OUT 

DOATA 

BUSY: 

IN 

RRC 

DSTAT 

JC 

BUSY 

MVI 

A.  1ZH 

OUT 

DCOM 

IN 

WAIT 

IN 

DSTAT 

ANI 

91H 

MOV 

RZ 

D.A 

LXI 

H.SKMSG 

JMP 

ERMSG 

!  PRINT 

THE  MESSAGE  AT 

PMSG: 

MOV 

A.M 

ORA 

RZ 

A 

MOT 

C,A 

CALL 

CONOT 

INX 

H 

JMP 

PMSG 

:READ  DISK  STATUS. 

:LOOK  AT  THESE  BITS. 
:SAVE  STATUS  BITS 
tRETURS  IF  NO  ERR. 

:PRINT  "WRITE  ". 

:GET  ERROR  BITS. 

:LOOK  AT  BIT  6. 

•.PRINT  "PROTECT  ". 

;GET  ERROR  BITS. 

;LOOK  AT  BIT  5. 

•.PRINT  "FA'JLT  ". 

:OQ  COMMON  MESSAGES. 

TRACK  IN  REGISTER  A. 

;TRACK  TO  DATA  REGISTER. 
;READ  DISK  STATUS. 

;LOOK  AT  BIT  0. 

:WAIT  TILL  NOT  BUSY. 

:SET  FOR  10  MS  STEP. 
;ISSUE  SEEK  COMMAND. 
:WAIT  FOR  INTRO. 

:READ  STATUS. 

:LOOK  AT  BITS, 
i  SAVE  STATUS 
iRETURN  IF  MO  ERROR 
:PRINT  "SEEK  ". 

JDO  COMMON  ERR  MESSAGES. 

HAL  UNTIL  A  ZERO. 

jCET  A  CHARACTER, 

:IF  IT'S  ZERO, 

{RETURN. 

{OTHERWISE, 

{PRINT  IT. 

{INCREMENT  HAL, 

{AND  GET  ANOTHER. 
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;  C310S 

MESSAGES 

RENT 

ECU 

OOOOH  jMONircR 

NRMSG; 

DB 

'NOT  READY  >0 

RNMSG: 

DB 

‘RECORD  NOr  FOUND  » 

CRCMSG: 

DB 

•CRC  ',0 

LGMSG: 

DB 

•LOST  DATA  ',0 

BSYMSG: 

DB 

•BUSY  ',0 

WPMSG: 

DB 

■PROTECT  ',0 

WFMSG: 

DB 

■FAULT  ’,0 

ERRMSG: 

DB 

■ERROR. * .0 

RD-SG; 

DB 

ODH.OAH, ■READ  ’ 

,0 

W'MSG: 

DB 

ODH, OAH, 'WRITE 

•  .0 

SKMSG: 

DB 

ODH.OAH, 'SEEK  ’ 

.0 

HEMSG: 

DB 

ODH.OAH, 'HOME  • 

.0 

MNIMSG; 

DB 

ODH.OAH, 'MOUNT 

\o 

.0 


BLNK: 

MVI 

C,20H  ;PRINT 

BLANKS 

LPI: 

CALL 

C0N0T1 

DCR 

D 

JNZ 

LP1 

RET 

BINHA 

MOV 

A.D 

RAR 

RAR 

RAR 

RAR 

CALL 

BIN1 

MOV 

C.A 

CALL 

COMQT 

MOV 

A,D 

CALL 

BIH1 

MOV 

C,  A 

CALL 

COKOT 

RET 

t  »  1  *  f 

OUTPUTS 'four 'hex 'digits 'in' ASCII ' 

t  t  t  t 

ENTER  WITH  DATA  IN  REG  PAIR  E  AND 

D 

lift* 

BINB: 

CALL 

BINHA 

MOV 

D,  E 

CALL 

BINHA 

* 

RET 

t  t  t  1  t 

CONVERTS 

HEX  TO  ASCII 

****** 

INPUT:  A 

BITS  HEX  REG  A 

1 

1 

OUTPUT: 

S  BIT  ASSCII  REG  A 

i  i  $ 

BINI- 

ANI 

OFH 

ADI 

30H 

CPI 

3AH 

RC 

ADI 

07H 

RET 

IN  REG.  D 
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INITA:  MVI  A.OAAH 

OUT  CSTAT 

«VI  A.AOH 

OUT  CSTAT 

«VI  A.OCEH 

OUT  CSTAT 

«VI  A.37H 

OUT  CSTAT 

RET 


JGET  DUMMY  MODE  WORD 
:OUrPUT  IT 
iOET  RESET  BIT 
:RESET  SIO  BOARD 
:GET  REAL  MODE  WORD 
;SET  THE  MODE  FOR  REAL 
jGET  THE  COMMAND 
iOUTPUT  IT 


CRLF; 

MVI 

c,  n 

:CR 

Lf : 

CALL 

CONOT 

MVI 

C,  10 

:i.F 

CALL 

C0N0T1 

MVI 

C,7FH 

CALL 

C0N0T1 

CALL 

CONOT 

RET 
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Section  10 


Unibus  Port  Test 

10.1  General  Description 

The  Unibus  Port  Test  checks  the  S-100  to  Unibus 
adapter  and  the  Unibus  data  and  address  lines. 

10.2  Program  Details 

The  Unibus  is  a  wired-or  bus  and  any  device  on 
the  bus  can  pull  a  data  or  address  line  low  (logical  1). 
When  not  in  use  all  data  and  address  lines  should  be  high 
(logical  0).  The  port  test  continuously  reads  the  Unibus 
and  in  a  cyclic  fashion,  sets  a  line  low  and  then  verifies 
that  this  and  only  this  line  is  low  (logical  l).  The  test 
then  proceeds  to  the  next  line  and  tests  it  until  all  data 
and  address  lines  are  tested.  The  port  test  uses  the  Uni¬ 
bus  adapter  to  read  and  write  to  the  Unibus  lines,  veri¬ 
fying  their  operation.  If  an  error  is  detected,  the  Uni¬ 
bus  adapter  port  number  and  the  actual  and  expected  bit 
patterns  are  printed  on  the  console.  Figure  10.1  shows 
the  relationship  between  the  IMSAI  adapter  port  numbers 
and  Unibus  data  and  address  lines. 

This  test  has  proven  particularly  helpful  in 
locating  problems  arising  due  to  misaligned  cards  in 
the  Unibus  card  cage  where  address  emd  data  lines  become 
shorted  together. 
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10.3  Creraticn 


The  Unibus  Fort  Test  is  cc-i:'- :  ; . '  t :  re¬ 
quires  no  operator  responses  once  running.  .  r  t 

checks  all  the  data  lines,  reports  any  errcrr_,  e-.:  re'-e-rts 
to  the  monitor  automatically.  There  are  nc  ;  ■  r.j  le  ;r 
sense  switch  inputs. 

The  Unibus  Fort  test  is  stored  in  prc^ra-umatle 
memory  on  the  diagnostic  m.em.cry  board.  The  program  can 
be  run  under  the  diagnostic  operating  system  test  conto- 
ller,  or  it  can  be  started  from  the  Il'SAI  6C80  front 
panel  at  a  starting  address  of  ’DOOO’  Hex. 

The  port  test  is  also  stored  on  floppy  disk  and 
it  can  be  invoked  by  the  CPM  operating  system  under  file 
name  'UBFORT.COM' . 


Uni bus 
Signal 


HI  Address 
A  16:09 


(  ic) 

1 


LG  Address 
A  08:01 


HI  Data 
D  15:08 


ACS 

A07  jACbj  A05  1  AC 4  AC 3  j AC  2 

ACl 

D15 

1  ^  ^ 
di4!di3!di2  Dll  :'i;,DC9 

_ ^ ^ _ i _ 

Doe 

(  12) 


It 


LO  Data 
D  07:00 


Control  1 


— 

— 

___ 

— 

— 

1  1  1 

Ssn|Cl  j Msn 

Control  2 


Int 

! 

— 

— 

— 

i 

— 

I  Grt 

Req 

Ssn  =  Slave  Sync  (input) 

Cl  =  Read/  write  (output) 

Msn  =  Master  sync  (output) 

Int  =  Initiate  (output) 

Grt  =  Grant  (input) 

Req  ®  Request  unibus  (output) 


Fig  10.1 


Unibus  Adapter  Ports 


CRG  lOOH 
UNIBJS  PORI  lESr 

0:sc  VERSION  24  “AI  79  B.  DONLAN 


ENTRY:  LXI 

H, ENTRY 

PUSH 

H 

DI 

LXI 

H.MSGI 

CALL 

PMSG 

;BEGINING  OF 

TEST 

Mvr 

A  ,  OlH 

MVI 

C,  lOH 

PORTIO:  OUT 

lOH 

MOV 

B,A 

IN 

10H 

CMP 

B 

CN2 

ERR 

RLC 

UNC 

PORTIO 

MVI 

A  ,  OlH 

MVI 

C,  11H 

PORTH;  OUT 

1 1H 

MOV 

a,  A 

IN 

1 1H 

CMP 

B 

CN2 

ERR 

RLC 

UNC 

PORT11 

MVI 

A. OlH 

MVI 

C,  12H 

PORT12:  OUT 

12H 

MOV 

B,A 

IN 

12H 

CMP 

B 

CNZ 

ERR 

RLC 

UNC 

PORT12 

MVI 

A, OlH 

MVI 

C,  13H 

PORI13;  OUT 

13H 

MOV 

B.A 

IN 

13H 

CMP 

B 

CNZ 

ERR 

RLC 

UNC 

PORT13 

; opening  message 


;?CRr  UNDER  TEST 

;SAVE  TEST  PATTERN 
;READ  BUSS 
:COMPARE 

jCALL  IF  IN  ERROR 

;TEST  FOR  A  COMPLETE  CICLE 


;PORT  11 

:SAVE  PATTERN 
iREAD  BUSS 
;C  OMPARE 
iCALL  IF  ERROR 


;PORT12 

;SAVE  TEST  PATERN 


LXI  H.MSGR 

CALL  PMSG 

JMP  RENT 


•7  o 

'  ^ 


iFIKISHED  MESSAGE 
jreturn  to  monitor 


3 

A 

HCV 

3rC 

LXI 

H.ySG? 

CALL 

CALL 

aivHA 

LXl 

H,“SGO 

CALL 

^"SG 

MCV 

A.S 

:all 

BITS 

lx: 

H,>«SG3 

CALL 

PHSG 

POP 

A 

CALL 

BITS 

.^CP 

B 

“GV 

A, 8 

3:c 

CMC 

RET 

“SGT 

DB 

OAH.CAH.ODH. ■ 

CB 

OAH , OAH , OSH , ■ 

MSuO  : 

DB 

CAH.CDH, • TEST 

DB 

OAH.OCH,  'AOru, 

DB 

OAH. OAH, OSH, ’ 

r£n: 

•C'J 

OOOOH 

;~;  ;r  £50^3  Pi;r.'. 'N 
."AVE  rE":  ?Ar:£SN 


?  DIE-'.TS 
;-3S:R  'i-ZZAZE. 

i-CAD  rssr  PArrESN 
?“iNr  TEST  PArrERN 
yZKE  TEXT 


PRINT  EPPIP  PAT-^N 

PEsroPE  3  and  : 

“C7E  TEST  PATrEPN  TO  A 


:?PD?  pop:  mo. 


’  .c 


PA 


'  ,0 


ERM  ’,0 
Or  TEST 

:“ON:roR  entry 


'  ,0 


;  lila^noaEis  Inpy*  output  routlnas 
i  for  priao  Ponlar.  26  f«o  79 


CSTAT  EOU 

::0M  e;u 
:;a  ta  £00 
cxap  EOU 
TPTR  EO'J 
CMJLL  EOJ 


3 

2 

0000001  OB 
OOOOOOC13 
1 


;CCN30LE  STATUS  PORT. 
CONSOLE  CONMANO  PORT 
CONSOLE  SATA  PORT. 

keyboard  ready  sit. 
pr:n:  ready  bit. 
CONSOLE  NULL  COUNT. 


;  WRITE  A  character  TO 


CONOT: 

HVI 

A.ODH 

C 

JZ 

CONUL 

CCN0T1; 

IN 

CSTAT 

AKI 

CPTR 

JZ 

CONOT 1 

MOV 

A.C 

our 

CDATA 

RET 

CONUL: 

PUSH 

B 

MVI 

B.CNULL 

CCMULl; 

CALL 

CONOn 

MVI 

0,0 

OCR 

S 

JNZ 

CONUL 1 

POP 

B 

MOV 

A.C 

RET 

THE  CONSOLE  DEVICE. 

ilr  IT’S  A  CR, 

;Tken  hop  out 
:ro  null  routine. 

;PEAD  CCNSOLE  STATUS. 
-.IE  NOT  READY, 
jREADY  WHEN  HIGH. 
iGET  CHARACTER. 

IPRINT  IT. 
jRETURN. 

;SAVE  B»C. 

:CET  NULL  COUNT. 

.•print  CR. 

:GET  NULL  CHAR. 
IDECREHENT  COUNTER. 
;D0  NEXT  null. 
jRESTORE  bac. 

IRESTORE  A. 
iRETURN. 


:  yr.z*A:£ 

£7  C  A  CjC 

..N  r  IL  ZERO 

3  SEC  H  4  L 

;:£■  CHAR 
;IS  i:  A  ZERO 

jCTHER-rflSE  PRINT 

;INC  ADDRESSS 

=  ycv’ 

CRA 

R2 

MOV 

CALL 

INX 

JMP 

*a!m' * 

A 

C,  A 

CONOT 

H 

R'-SC 

t  1  »  A  1  •  * 

• ' " '  'print’s  21 

I  WCRD 

IN  BINARY  rCR«Ar 

;  INPJT: 

LA  r A  j 

N  REG  A 

b::s:  mcv 

B,  A 

:  DATA 

MVI 

A,80H 

;  MASK 

OVER:  MVI 

C,  30H 

vov 

E  ,  A 

;  STORE  MASK 

ANA 

9 

:  AND  WITH  MASK 

JZ 

?RNT 

:  JUMP  IF  ZERO 

MVI 

C,31H 

PSST;  CALI. 

COMOT 

ANA 

B 

;  ZERO  CARRY 

MOV 

A,£ 

:  LOAD  MASK 

RAR 

UNO 

over 

RET 

OUTPUTS  2  HEX  DIGITS  IM  ASCCII 
FROM  REG  0 


•  f  •  t  «  1  •  1  t  «  t  t 

BINHA:  MOV 

A.D 

RAR 

RAR 

RAR 

RAR 

CALL 

BINl 

MOV 

C,  A 

CALL 

CONOT 

MOV 

A.D 

CALL 

BINl 

MOV 

C.A 

CALL 

CONOT 

RET 

;  CONVERTS 

HEX  TO  ASCII 

IMPUT:  <•  BITS  HEX  REG  A 
OUTPUT:  8  BIT  ASSOII  REG  A 


ANI 

OFH 

ADI 

30H 

CPI 

3AH 

RC 

ADI 

07H 

RET 
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BIMI: 


Secticr.  11 


.onmunica'' 


lest 


11.1  General  Description 

The  Unibus  ComiTiUnication  Test  is  one  of  the  rr.ost 
versatile  tests  -written  for  this  systen.  This  test  allo-//s 
an  operator  to  transfer  a  data  -word  either  to  or  fror.  the 
console  and  any  device  on  the  Unibus.  Error  checking 
is  accomplished  to  monitor  the  transfer  and  report  any 
bus  errors. 

11.2  Program  Details 

The  Unibus  Communication  Test  is  completely 
interactive  with  the  operator  responding  to  the  computer 
requests  for  data.  The  test  program  first  requests  the 
transfer  mode.  There  are  three  valid  responses  to  this 
request ; 

I-  Input,  transfer  from  Unibus  device  to  console 

Control  C-exit 

0-Cutput,  transfer  users  data  word  to  Unibus  device. 

If  the  output  mode  is  selected,  the  user  is 
next  prompted  for  the  4  Hex  digit  data  word  to  be  trans- 
fered.  Error  checking  is  performiCd  on  the  bus  status  and 
operation,  but  not  on  the  transfered  data.  A  timer  is 
incorporated  in  the  transfer  program  which  will  time-out 
and  report  on  errors  if  the  selected  device  has  made  no 
response  after  approximately  10  milliseconds.  Errors  such 
as  bus  busy  and  bus  mastership  conflicts  are  also  reported 
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Since  the  Unibus  Ccmn-,unication  Test  is  interac¬ 
tive,  the  operator  need  only  respond  to  the  ccnputer's 
request.  All  data  and  address  words  are  ^  hex  digits  long 
with  no  carriage  return  used. 

The  communication  test  is  stored  in  the  program¬ 
mable  memory  on  the  diagnostic  memory  board.  The  program 
can  be  run  under  the  diagnostic  operating  system  controlle 
or  it  can  be  started  directly  from  the  IMSAI  8080  front 
panel  at  a  starting  address  of  'DlOO'  Hex. 

The  communication  test  is  also  stored  on  floppy 
disk  and  it  can  be  invoked  by  the  GPr/I  operating  system  un¬ 


der  file  name  ' UBC 0?®: . C OM ' . 


Uni bus 
Address 


Device 


FEOO 

FE20 

FE21 

FE22 

FE23 

FE24 

FE25 

FE26 

FE27 

FFE8 

F800 

F801 

F802 

0003 

2102-21FF 


AP-12CB  Formatter 
AP-12CB  Word  Count 
AP-12CB  Host  r/Iemory  Address 
AP-12CE  DiAA  Control 
AP-12CB  AP  '.'emery  Address 
AP-12CB  Panel  Switches 
AP-12CB  Panel  Functions 
AP-120B  Panel  Lites 
AP-120B  Reset 
Filter  Control  Register 
Front  Panel 
Front  Panel 
Front  Panel 

Data  Acquisition  Module 
Display  Memory 


Table  11.1 
Unibus  Addresses 
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; JNlaJS 

c,“''  .'i: 

CAIICV  lESI 

:  Dis: 

;ess;  jN 

PJ  “AX  79  a. 

DCNLAN 

aENT; 

EOU 

0 

CRG 

100H 

EVrPY3: 

LXI 

H.EM:SX3 

PJSH 

H 

LXI 

H.MSGS 

;opesn:ng  “EESSAGE 

1  ALL 

?“SG 

CALL 

BBIN 

:GET  HEX  CHAR 

PJSH 

D 

;SA'/E  acsress 

LXI 

H.MSGB 

iPEOUESr  MODE 

CALL 

pmsg 

T'YIN; 

CALL 

CONIH 

CPI 

■1  • 

JZ 

PJTIH 

•,JJMP  IF  INPUT  MACDE 

CPI 

03H 

jIESr  IF  CONTROL  C 

JZ 

RE.vr 

: RETURN  TO  MONITOR 

CPI 

■O’ 

JHZ 

OJtST 

ioUTPJT 

MODE 

pjraur: 

LXI 

H, MSG  11 

jOJTPJT  MESSAGE 

call 

PMSG 

CALL 

BBIM 

;GET  DIGITS  TO  OUTPUT 

POP 

3 

;RESTOBE  ADDRESS  TO  REG  B  i  C 

CALL 

DAIAO 

:JNI3USS  DRIVER 

JMP 

DCKE 

P'JTIN: 

LXI 

H,MSG9 

:  INPUT  MESAGE 

CALL 

PMSG 

POP 

B 

jRESrORE  ADDRESS  TO  3  i  C 

CALL 

data: 

;JNISJS  INPUT  ROUTINE 

CALL 

SIHB 

;PRINT  DATA  FROM  BUSS 

JMP 

DONE 

OCNE; 

LXI 

H.MSCIO 

CALL 

PMSG 

;PHINT  END  OF  TEST 

JMP 

ENIRYS 

5JEST: 

LXI 

H,MSG7 

CALL 

PMSG 

;  77 

JMP 

TRXGN 

MSGS: 

SB 

OAH.OAH 

OOH, ’UNIBUS  COMMUNICATION  TEST’ 

DB 

OAH.OOH 

’ENTER  UNIBUS  ADDRESS  ’,0 

MSGS: 

06 

OAH.ODH 

’INPUT  (I).  OUTPUT  (0),  EXIT  (CONTROL 

MSG?: 

DB 

OAH.ODH 

•  ?•  .0 

MSGM: 

OB 

OAH.ODH 

’ENTER  DATA  TO  OUTPUT  IN  «  HEX  DIGITS 

M3C9: 

DB 

OAH.ODH 

’  DATA  FROM  BUS  ',0 

I^SCfO 

OB 

OAH.ODH 

•TRANSFER  COMPLETE', 0 

:  1  i  1  * 

Z  5  ti  z 

;  f'.r  ^ 

•“  1  4?*.  '' 

:>nlar*.  2*^  f** 

D  T9 

:  s  :.4  r 

3 

::v3Ct.£  .*:4TJS  port. 

£;j 

3 

CZA  TA 

tOu 

I 

CCNSCLE  CATA  PORT. 

COR 

OCOOOOl^B 

••'EY3CAS:  REACT  3IT. 

cp:r 

E3J 

00C000013 

».p;.*jr  .PiAor  9rr. 

:njll 

EOO 

1 

console  null  count. 

; 

console  INPjr  STATUS. 

IV 

CSTAT 

ptAD  C:sSOL£  STATv'S. 

as: 

ZKBR 

look  at  ica  REACT  air. 

Hv: 

A.O 

set  a=o  .^or  return. 

RZ 

NOT  READY  WHEN  ZERO, 

CMA 

IF  REACT  A=FF. 

RET 

RETURN  FROM  CONST. 

■  R£A^ 

A  CHARACTER  FROM  CONSOLE. 

iONiN: 

IN 

CSTAT 

•.READ  CONSOLE  STATUS 

ANI 

CKBR 

I"  NOT  REACT, 

JZ 

CON  IN 

REACT  WHEN  HIGH. 

IH 

COATA 

READ  A  CHARACTER. 

our 

cda  ta 

ANI 

TEH 

MAKE  MOST  SIC.  BIT  =  0. 

RET 

;  ’NRITE 

A  character  to  the  console  device. 

CCNOT: 

MVI 

A.OOH 

IF  IT’S  A  CR, 

CMP 

C 

THEN  HOP  OUT 

JZ 

CONUL 

TO  NULL  ROUTINE. 

CONOTI: 

:m 

CSTAT 

READ  CONSOLE  STATUS. 

an: 

CPTR 

IF  NOT  READY. 

JZ 

C0HQT1 

READY  -WHEN  HIGH. 

MOV 

*.C 

GET  CHARACTER. 

OUT 

C2ATA 

PRINT  IT. 

RET 

RETURN. 

CCNUL; 

PUSH 

B 

SAVE  B4C. 

^vr 

a, CNULL 

GET  NULL  COUNT. 

CONJLl; 

CALL 

coNon 

PRINT  CR. 

MVI 

c.o 

GET  NULL  CHAR. 

OCR 

s 

DECREMENT  COUNTER. 

JNZ 

CONULI 

DO  NEXT  NULL. 

POP 

B 

RESTORE  B4C. 

MOV 

A,c 

restore  a. 

RET 

RETURN. 

PRINT  MESSAGE  UNTII.  ZERO 
MESSAGE  ADDRESS  BEC  H  i  L 


PMSC:  ’ 

MOV 

/i.M 

:GET  CHAR 

ORA 

RZ 

A 

;IS  IT  A  ZERO 

MOV 

CALL 

C.A 

CONOT 

jOTHERWISE  PRINT 

XNX 

JMP 

H 

PMSC 

;INC  ADDRESSS 

80 


1 


,3  'gfi.  V'  i  , 


S.il 

*.30h 

5>30H 

E.4 

3 

33  NT 

5.  3tH 

ccnqt 

3 

A ,  £ 


*  34  r4 
»*  ^ask 


yr-u  ^ 

JUf^P 

‘■'  Zc.3o 


^330  CAP  3  Y 

*•‘'^‘3  lAAsic 


SINK:  -VT 

CALI 

ocb"  coNor, 


;  P  J?  X  in  ^  o  ’  » 

Bi-ANKS,  ^ 


Qu'-Purs  5  ^ 

prom  hec^o‘’2  I!*  Rsccri 


3ZVHA.-  MCV 
RAfi 
RAR 
RAR 
Rar 
CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

REr 


b:hi 

C.A 

coNor 

A,0 

Bl,vt 

C.A 

Conor 


. .  li •■  iji f  • .- ; ; ; 

-  . E  A»d  n 


MOV^  ®ZRHA 


R^cxi  Jpg  ^ 


c ! :  1 7 :  •  p .  *•  7  ■-  N : 

'L£ 

;  »  £  r  .  ^  ; 

4  :s 

£-0 

;  ; 

:  iLL 

A  -iS  1 

PAL 

-AL 

PAL 

PAL 

A  njI 

7  F  '"H 

«:v 

i; ,  A 

:all 

::s:n 

:all 

AHS: 

A  N : 

:fh 

:  =  A 

z 

«;y 

C.  A 

:all 

■::n:s 

CALL 

A  KS  t 

PAL 

PAL 

SAL 

PAL 

as: 

CFCH 

«ov 

£  .  A 

CALL 

:cn:n 

CALL 

AH31 

an: 

OFH 

C9A 

E 

“0  V 

E.A 

SET 

•  "  *  ’'CNvi?:’ 

ASCII ' Tc’hEx' ' ' ' ' 

»*«•»••••  t  I  »*»*••  F  •  1  » 

;  T  S  ®  J  T  : 

8  BIT  ASCII  REG 

A 

;  CjTSJT; 

A  BIT  HEX  REG  A 

AHSl:  NCP 

sj: 

30H 

CPI 

OAH 

RC 

SUI 

07H 

SET 

:  iNiriA 

•E  sio  PORTS 

isiTA;  MVI 

A , OAAH 

GET  DJMMT  MODE  WORD 

OJT 

CSTAT 

OJTPUr  IT 

WVI 

A,  40H 

GET  RESET  BIT 

OJT 

CSTAT 

RESET  SIO  BOARD 

•1VI 

A. OCEH 

GET  REAL  MODE  VORD 

CUT 

CSTAT 

SET  THE  MODE  FOR  REAL 

MVI 

A,37H 

GET  THE  COMMAND 

OJT 

CSTAT 

OUTPUT  IT 

RET 

CRLF:  HVI 

C.  13 

CR 

CALL 

COROT 

Lf:  MVI 

C,  10 

LF 

CALL 

CONOTI 

MVI 

C,7FH 

CALL 

C0M0T1 

CALL 

coNor 

RET 
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:a  :x:\ 

•iVLL 

C'  JS 

CALL 

OATI 

SJB 

A 

OJT 

•'5H 

SET 

U  TAO: 

CAL!. 

OETBUS 

CALL 

DA  TO 

SJB 

A 

our 

15H 

HET 

;»cjr:.v£  ro  i 

NPJT  A  16  BIT 

VORO  FROM  CNIBUS 

;  PPO  3 

J  A<1E 

.■;5>.  BEO  C  = 

ATOB: Cl > 

■,za:a  w 

rLL  B£ 

CONTAINED  IN 

RES  0  =  0<15:03>,  RES  C  :  D<07 

OAri: 

HVI 

A .OFF H 

;SEr  LOOP  COUNT 

STA 

BIZCNT 

BJZLPI: 

IN 

15H 

;CHECK  FOR  SYS  =  0 

ANl 

CAB 

.-FROM  LAST  TRANSACTION 

JN2 

3BJ3YI 

t 

MOV 

A,  B 

.•OUTPUT  HIOH  address 

OUT 

10H 

MOV 

A,  0 

;OurRjT  LOW  ADDRESS 

cur 

1 1H 

SUB 

A 

:OUTPUT  C1=0 

ojt 

INH 

0?l 

01H 

;OUTP'JT  MSYNr! 

OUT 

INH 

SrVLPT: 

y  VI 

A , OFFH 

.•LOOP  COUNT 

STA 

SYN'NT 

DILOOP: 

IN 

lUH 

.•CHECKS  IF  SSYNsi 

OUT 

OF.s’H 

ANI 

ONH 

JI 

NOSYN 1 

' 

IN 

12H 

:INPJT  HIGH  DATA 

MOV 

D,A 

IN 

'3H 

;INPUT  LOW  DATA 

MOV 

E.A 

t 

SUB 

A 

CUT 

INM 

jCLEARS  MSYN 

OUT 

10H 

.•AND  everything 

OUT 

IIH 

;PJT  OUT  TO  BUS 

OUT 

12K 

cur 

nn 

IN 

OFFH 

AHI 

oeoH 

JNZ 

DATI 

•.LOOP  IF  SENSE  SWITCH  UP 

BET 
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i  £  : : 

-  r  '  i  - 

•  3  -  j  5  ,  *  ■  ■ 

^  .  '  ■  c  :  :  A ' :  = 

z  z  z 

:  : :  ^ .  -  £ :  £  =  :  ^ - 

i\:z: 

A  ,  Cr  FK 

in 

3 : : :  s  r 

3:ZL?2:  IN 

-  -i  H 

AN! 

0‘iH 

JN2 

Bi  J3r2 

MCV 

A  .  3 

jOuTpj:  hi3:-:  a:3s-: 

cj: 

icy 

MOV 

A  ,  C 

ic;,:?,:  lcu  >zz?i2 

OJT 

11H 

MOV 

A,0 

htC'-;  -ata 

Our 

12H 

MOV 

A.  £ 

:ou:p  'r  low  oata 

cur 

UH 

y  v: 

A,C2rt 

jOuTPor  c;.i 

c  j: 

Mv: 

A,03H 

:oorpj:  >'srN:i 

cur 

’UH 

SrsL?2:  MVI 

A.OFFH 

STA 

syncs: 

DCLCO?:  IS 

UH 

:;h£:x3  fcs  sstn 

cur 

OFF  H 

as: 

:rO  GET  A3S£P:33 

J2 

sosrN2 

SUB 

A 

OUT 

UH 

;CL£ASS  HSYN  AND  C 

cur 

ICH 

cur 

1 1M 

•.GLtAPs  ev-?yth:kg 

oj: 

12H 

jcutpj:  ro  :h3  bos 

c  u  * 

IS 

OFF  H 

:R-AD  S-NSE  SWITCH 

an: 

OSOH 

JVC 

DA  TO 

:LOCP  IF  a? 

a;: 

» 

iiT2:.3;  “V: 

A.OFFH 

STA 

CETCST 

Mv: 

A,01H 

cur 

15H 

LCC?:  :s* 

15H 

ANI 

c:h 

J2 

NOOET 

atT 

;  Cn-l:n£  UN 

isjs  orAGsosrics 

;  3'f  salAN 

DONLAS  24  APR  79 

BBUSTt:  LCA  5 

IZCST 

;LOOP  COUNT 

DCS 

A 

STA 

BIZCMT 

;MFH  COUNT 

UNZ 

eiZLPI 

JUMP  IF  STILL  COUN 

LTI 

H,  E3HSC2 

CAU. 

PM3C  ;DISPLAY 

ERROR  message 

jy? 

ENTRYI 

B3.ST2:  LCA 

Bizcsr 

CCK 

A 

STA 

8I2CST 

jn: 

BIZL®2 

LXI 

H. EHMSC2 

CALL 

PMSG 

JMP 

ENTRY3 

A0*A092  441 

UNCLASSIFIED 


air  force  INST  OF  T£Ch  WRUhT-PATTERSON  AFB  OH  F/S  ,4/» 

development  FOR  A  REAL-TIME  SPECTRAL  ANALvI-iEK  ( U ) 

AFIT-Cl-eO-9T  Ml 


of  ’0500'  Hex. 

Snapshot  is  also  stored  on  floppy  disk  and  it 
can  he  invoked  by  the  CPM  operating  system  under  file  name 
•SNAPST.COM’ . 

Snapshot  is  also  available  as  a  subroutine  which 
can  be  called  from  user  program.  The  PROM  version  subrou¬ 
tine  entry  point  is  at  *D5Q8*  Hex. 
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J  UNIBUS  SNAP  SHOT  ROUIINE 
ORG  lOOH 

ENIRYN:  LXI  H, FINIS 

PUSH  H 

DI 

CALL  INIIA 


ISUBROUTINE 
ENIRYS:  LXI 
CALL 
IN 
MOV 
IN 
MOV 
CALL 

MVI 

CALL 

IN 

MOV 

IN 

MOV 

CALL 

MVI 

CALL 


entry  point 

H.MSCIE 
PM  SO 
10H 

D, A 
tlH 

E, A 
BINB 

O.BH 

BLNK 

I2H 

D, A 
13H 

E. A 
BINB 
O.BH 
BLNE 


: RESET  I/O 


;HIGH  ADDRESS 
ISAVE  IN  D 
;L0H  ADDRESS 

:PHINT  UNIBUS  ADDRESS 

: SPACE  OVER 

:HIGH  DATA 

:LOW  DATA  BITS 

, -PRINT  UNIBUS  DATA  BITS 
-.SPACE  OVER 


IN 


A  NT 
JZ 
MVI 
JMP 

NOSIS;  MVI 
OUTS  IS:  CALL 
MVI 
CALL 


NOBUS: 
ours  US: 


IN 

A  HI 

JZ 

MVI 

JMP 

MVI 

CALL 

MVI 

CALL 


OUH 
NOSIS 
C, '  1  • 

ours IS 

C, '0' 
CONOT 

D, 09H 
BLNK 

15H 

01H 

NOBUS 

C,M' 

our  BUS 

C,  'O' 
CONOT 

D. OBH 
BLNK 


SSTATUS  PORT 

:find  slave  syn 


JPRINT  SLAVE  SYN 
JSPACE  OVER 


{STATUS  PORT 
;6US  GRANT 


{PRINT  BUS  GRANT 
{SPACE  OVER 


IN 

ANI 

JZ 

MVI 

JMP 

NOMSYN:  MVI 

OUTMSN:  CALL 
RET 

FINIS:  JMP 

HSG12:  OB 
OB 
OB 


14H 

OOH 

NOMSYN 

C.'l' 

OUTMSN 
C,  'O' 

CONOT  {PRINT  MSYN 

FINIS 


SNAP-SHOT 

OAH,  OOH, 'AOORESS  DATA 

OAH.OOH,'  ',0 


{  Top  brian  donlan  26  fab  79 


SSYN 


CSTAT 

CCOH 

CDATA 

CKBR 

CPTR 

CNULL 


EOU  3 
EQU  3 
EOU  2 

EOU  0000001  OB 
EOU  00000001B 
EOU  T 


{CONSOLE  STATUS  PORT. 
{CONSOLE  COMMAND  PORT. 
{CONSOLE  DATA  PORT, 
{KEYBOARD  READY  BIT. 
{PRINT  READY  BIT. 
{CONSOLE  NULL  COUNT. 


GRANT 


MSYN' 
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CHECK  CONSOLE  INPUT  STATUS 


CONST:  IN  CSTAT  jREAD  CONSOLE  STATUS. 

ANI  CKBR  ;LOOK  AT  KB  BEADY  BIT 

MVI  A,0  ;SET  A=0  FOR  RETURN. 

RZ  ;NOT  READY  WHEN  ZERO. 

CMA  :IF  READY  AsFF. 

RET  ; RETURN  FROM  CONST. 


i  READ  A  CHARACTER  FROM  CONSOLE. 

CONIN:  IN  CSTAT  ;READ  CONSOLE  STATUS. 

ANI  CKBR  ;IF  NOT  READY, 

JZ  CONIN  :REAOY  WHEN  HIGH. 

IN  COATA  ;READ  A  CHARACTER. 

OUT  CDATA 

ANI  7FH  ;HAKE  MOST  SIG.  BIT  >  0. 

RET 

I  WRITE  A  CHARACTER  TO  THE  CONSOLE  DEVICE. 


CONOT: 

MVI 

A,ODH 

:IF  IT'S  A  CR, 

CMP 

C 

{THEN  HOP  OUT 

JZ 

CONUL 

{TO  NULL  ROUTINE. 

CONOT 1: 

IN 

CSTAT 

{READ  CONSOLE  STATUS 

ANI 

CPTR 

{IF  NOT  READY, 

JZ 

CONOT 1 

{READY  WHEN  HIGH. 

MOV 

A.C 

{GET  CHARACTER. 

OUT 

CDATA 

{PRINT  IT. 

RET 

{RETURN. 

CONUL: 

PUSH 

B 

{SAVE  BAC. 

MVI 

B.CNULL 

{GET  NULL  COUNT. 

C0NUL1: 

CALL 

C0N0T1 

{PRINT  CR. 

MVI 

C,0 

{GET  NULL  CHAR. 

DCR 

B 

{DECREMENT  COUNTER. 

JNZ 

CONUL 1 

{DO  NEXT  NULL. 

POP 

B 

{RESTORE  BAC. 

MOV 

A.C 

{RESTORE  A. 

RET 

{RETURN. 

PRINT  MESSAGE  UNTIL  ZERO 
MESSAGE  ADDRESS  REG  H  A  L 


i«*t*»*r»****t 


PMSG:  MOV  A,H  ;CET  CHAR 

ORA  A  ;IS  IT  A  ZERO 

RZ 

MOV  C.A  {OTHERWISE  PRINT 

CALL  CONOT 

INX  H  ;INC  ADDRESSS 

JHP  PMSG 


f 

1 

INPUT; 

DATA  IN 

REG  A 

BITS 

MOV 

B.A 

{  DATA 

MVI 

A.SOH 

{  NASE 

OVER 

HYI 

C,30H 

NOV 

t,k 

{  STORE  MASK 

AHA 

B 

{  AND  WITH  MASK 

JZ 

PRNT 

;  JUMP  IF  ZERO 

NVI 

C,31H 

t 
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PRNT: 

CALL 

CONOT 

ANA 

B 

;  ZERO  CARRY 

MOV 

A.E 

:  LOAD  MASK 

RAR 

JNC 

OVER 

RET 

BLNK: 

HVI 

C,20H 

; PRINT  BLANKS, 

LP31: 

CALL 

C0N0T1 

DCR 

D 

JNZ 

LP31 

RET 

OUTPUTS  2  HEX  DIGITS  IN  ASCCII 
FROM  REG  D 


BINHA 


MOV 

RAR 

RAR 

RAR 

RAR 

A.D 

CALL 

BIN1 

MOV 

C.A 

CALL 

CONOT 

MOV 

A.D 

CALL 

BIN1 

MOV 

C,A 

CALL 

RET 

CONOT 

OUTPUTS  FOUR  HEX  DIGITS  IN  ASCII 
ENTER  WITH  DATA  IN  REG  PAIR  E  AND  0 


BINB: 

> 

CALL 

MOV 

CALL 

RET 

BINHA 

D.E 

BINHA 

i  CONVERTS 

HEX  TO  ASCII 

i  INPUT:  A 

BITS  HEX  REG  A 

;  OUTPUT: 

8  BIT  ASSCII  REG  A 

1 1  ! 

^Nl: 

ANl 

OFH 

ADI 

30H 

CPI 

3AH 

RC 

ADI 

07H 

» 

RET 

;  INPUTS  A 

DIGITS  FROM  CONSOLE 

i  RETURN; 

A  HEX  DIGITS  IN  REG  E-D 

t  t 

BBIH: 

CALL 

CONIN 

CALL 

ANSI 

RAL 

RAL 
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RAL 

RAL 

ANI 

OF  OH 

MOV 

D,A 

CALL 

CON  IN 

CALL 

AHS1 

ANI 

OFH 

ORA 

D 

NOV 

D.A 

CALL 

CONIN 

CALL 

AHS1 

RAL 

RAL 

RAL 

RAL 

ANI 

OF  OH 

MOV 

E,A 

CALL 

CONIN 

CALL 

AHS1 

ANI 

OFH 

ORA 

E 

MOV 

E.A 

RET 

CONVERT  ASCII  TO  HEX 
INPUT;  8  BIT  ASCII  REG  A 
OUTPUT:  A  BIT  HEX  REG  A 


NOP 

SUI 

30H 

CPI 

OAH 

RC 

SUI 

07H 

RET 

*  f « 1 1  f  I  f  * 


ittiififfitffiftttittttftttti; 

INITIATE  SIO  PORTS 


f  »  * 


INITA; 

MVI 

A.OAAH 

OUT 

CSTAT 

MVI 

A,«OH 

OUT 

CSTAT 

MVI 

A.OCEH 

OUT 

CSTAT 

MVI 

*.37H 

OUT 

CSTAT 

i 

RET 

i 

CRLF; 

MVI 

C.13 

CALL 

COROT 

LF: 

MVI 

C,10 

CALL 

COROT 1 

MVI 

C.TFH 

CALL 

COROT 1 

CALL 

RET 

COROT 

;GET  DUMMY  MODE  WORD 
;OOTPUT  IT 
•.GET  RESET  BIT 
; RESET  SIO  BOARD 
;GET  REAL  MODE  WORD 
:SET  THE  MODE  FOR  REAL 
:GEI  THE  COMMAND 
;OUTPOI  IT 


;CR 

;LF 
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Secton  13 

Diagnostic  Memory  Board 


13.1  General  Description 

In  order  to  have  all  diagnostic  programs  avail¬ 
able  for  execution  even  in  the  event  of  a  disk  failure,  all 
diagnostic  programs  were  placed  in  programmable  read-only 
memories.  A  small  operating  system  was  also  included 
in  the  prom  memory.  This  enabled  all  programs  to  be  resi¬ 
dent  and  not  require  any  disk  loading  before  execution. 

A  16K  byte  read-only  memory  board  was  added  to  the  IMSAI  8080 
computer  system  to  hold  these  programs. 

13.2  Detailed  Description 

The  memory  board  decided  upon  was  in  a  kit  man¬ 
ufactured  by  SSM  Microcomuter  products.  This  board  has 
a  capacity  of  I6K  bytes  of  memory  stored  in  Intel  2708 
memory  chips.  The  memory  board  can  be  assigned  to  any 
16K  memory  block  area  but  for  this  application  it  was 
placed  at  the  very  top  of  the  memory  address  range.  The 
board  was  set  to  occupy  from  'GOOD'  to  'fffF'  hex.  Presently, 
only  lOK  of  the  possible  I6K  is  used  for  diagnostics,  leav¬ 
ing  the  remainder  for  future  expansion. 

The  memory  board  is  S-100  Bus  compatable  and  re¬ 
ceives  all  its  power  from  the  Bus. 
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•COOO' 

•C290’ 

•C800' 

•CD80' 

•CE40' 

•DOOO' 

'DlOO' 

'D5OO' 

•D600’ 

'D700' 

•FOOO' 

’F800' 

'FDOO' 

•EOOO' 


Memory  Test 

Mini  Memory  test  0  to  100  Hex  version 

Formatted  Disc  test 

Disc  Full  track  write  routine 

Disc  Full  track  write  routine 

Unibus  Port  test 

Unibus  Communication  test 

Unibus  Snap  Shot  routine 

Mini-Memory  test  8K  version 

Mini-Memory  test  24K  version 

Operating  system 

Help  program 

test  controller 

Color  graphic  test  (future  options) 


table  13.1  Memory  map 
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Section  14 


Conclusion 

This  report  has  described  the  design  and  de¬ 
velopment  of  a  diagnostic  system  for  a  real-time  spec¬ 
tral  analysis  system. 

The  developed  software  has  been  verified  and 
tested.  In  fact,  many  of  the  tests  were  used  by  the 
author  and  other  members  of  the  project  team  to  keep 
the  system  operational,  enabling  further  development  to 
proceed.  The  diagnostic  system  also  proved  very  helpful 
in  testing  new  hardware  designs  and  components.  For 
example,  hardware  modifications  were  performed  on  the 
color  graphics  display,  giving  it  added  capabilities. 
During  the  development  of  a  display  test,  the  newly 
written  programs  pointed  out  unknown  degradations  of  the 
original  capabilities. 

Since  the  research  personnel  working  on  and 
with  the  spectral  analysis  system  is  always  changing, 
every  effort  was  made  to  make  the  tests  easy  to  run  and 
error  notifications  self-explanatory.  This  is  unfortunate 
since  the  tests  contain  a  wealth  of  information  about  the 
system  state  and  a  more  experienced  user  can  interpret 
this  information. 

The  structure  of  the  diagnostic  system  is  such 
that  many  of  the  functions  are  performed  using  sub¬ 
routines.  These  subroutines  can  be  used  by  any  program 


and  could  be  of  great  use  in  the  future  for  I/O  functions 
on  on-line  continuous  verification. 

Unfortunately,  as  of  this  v/riting,  no  further 
funding  or  development  effort  is  programmed  of  the 
system.  With  the  exception  of  the  memory  diagnostics, 
all  the  tests  are  very  specific  and  will  be  of  little 
value  for  use  in  a  general  purpose  microcomputer  system. 

The  diagnostic  system  was  designed  with  ex¬ 
pansion  in  mind.  The  programmable  memory  board  con¬ 
tains  room  for  many  more  tests  and  the  test  directory 
can  easily  be  expanded. 
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APPENDIX  A 


MEMORY  BOARD  DIAGRAMS 


S^^B8A  IK  TO  1GK  EPRQL%  BOARD 


FEATURES: 

SYSTEM  COMPATIBILITY 
.  S-lOO  bus  computer  systems. 

MEMORY 

.  Up  to  16K  bytes  of  2708  EPROMs  (not  included) 

.  Any  unused  EPROM  socket  will  automatically  disable  the  board  for  that  IK  incre¬ 
ment.  For  example,  with  8  EPROMs  it  acts  as  an  8K  board,  taking  up  only  8K  of 
memory  address  space. 

ADDRESSING 

.  DIP  switch  selection  of  memory  address  assignment  in  16K  byte  increments. 

Magic  Mapping  allows  any  byte  within  ROM  to  be  mixed  with  any  similarly  add¬ 
ressed  RAM  board  equipped  with  Phantom  Disable. 

VECTOR  JUMP 

.  Power-on/ reset  vector  jump  to  any  256  byte  increment;  DIP  switch  addressable. 

.  Vector  jump  can  be  disabled. 

.  Vector  jump  requires  other  memory  boards  to  be  equipped  with  Phantom  Disable. 
OTHER  FEATURES 

.  DIP  switch  selection  of  0  to  8  wait  state  clock  cycles,  so  fast  or  slow  EPROMs 
can  be  used. 

All  lines  buffered.  Reverse  voltage  protection. 

.  High  grade  glass  epoxy  PC  board  with  gold  plated  edge  connector  contacts. 

.  Low  profile  sockets  provided  for  all  ICs. 

.  Power  requirements  (less  EPROMs)  —  +8V  g  l60mA,  +16V  g  lOmA,  -16V  @  lOmA  typical 
We  used  to  be  Solid  State  Music.  We  still  make  the  blue  boards.  or 
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Commonly  Used  Subroutine 


The  following  is  a  listing  of  some  subroutines 
which  are  commonly  used  in  the  diagnostic  programs: 

CONST  ’C177* 

Checks  console  status.  Returns  with  zero  in  reg  A 
if  not  ready.  Returns  with  *FF'  in  reg  A  if  ready. 

CONIN  'C180' 

Reads  a  character  from  the  console.  The  input 
character  is  returned  in  reg  A.  The  input  character  is 
echoed  on  the  console. 

CONOT  'C18E' 

Writes  a  character  on  the  console  device.  The 
character  is  output  from  reg  C. 

PMSG  ’ClAE* 

Prints  a  character  string  on  the  console  device. 

The  address  of  the  beginning  of  the  string  must  be  placed 
in  reg  H  and  L.  The  string  is  printed  until  a  null  (OO) 
is  encountered. 

BITS  'G1E5’ 

Prints  an  8  bit  byte  in  binary  format  in  the  console 
device.  The  data  word  is  taken  from  reg  A. 

BLNK  'CIFB* 

Prints  the  number  of  blanks  found  in  reg  D. 


102 


BINB  ’C21A' 


Outputs  four  hex  digits  in  ASCII  on  the  console. 
Enter  with  the  data  in  reg  E  and  D. 

BINHA  'C205’ 

Outputs  two  hex  digits  in  ASCII  on  the  console. 

Enter  with  the  data  in  reg  D. 

BINl  •C222' 

Converts  hex  to  ASCII.  Input  with  4  bits  in  reg  A 
Outputs  with  8  bit  ASCII  character  in  reg  A. 

BBIN  'C22C’ 

Inputs  4  hex  digits  from  the  console.  Converts 
the  ASCII  characters  to  hex.  Returns  with  the  4  hex  digits 
in  reg  E  and  D. 

AHSl  ’C25B 

Converts  ASCII  to  Hex.  Inputs  with  a  8bit  ASCII 
character  in  reg  A.  Returns  with  a  4  bit  hex  digit  in  reg  A. 

INITA  'C264' 

Initiates  the  SIO  port.  No  inputs  or  outputs. 

CRLF  'C275' 

Sends  one  Carriaige  return  and  one  line  feed  to  the 

console. 

LP  'C27A' 

Sends  one  line  feed  to  the  console. 
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DATI  'D312’ 

Inputs  a  l6  bit  word  from  the  Unibus.  Reg  B  and  C 
needs  the  Unibus  address  and  the  data  will  be  returned  in 
reg  D  and  E. 

DATO  *0351' 

Outputs  a  l6  bit  word  to  the  Unibus.  Reg  B  and  C 
needs  the  Unibus  address  and  reg  D  and  E  needs  the  data. 

GETBUS  ’0391' 

This  routine  gets  the  IMSAI  master-ship  of  the 

unibus. 
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APPENDIX  C 


PROM  PROGRAM  LISTINGS 


MEMORY  TEST 

PROM  VERSION  21)  MAY  79  8.  DONLAN 

ORG  OCOOOH 


-.TEST  BYTE 


0  218000 
3  F9 

0  2101IC0 

7  £5 

8  3EOO 

»  320A00 
D  C0611C2 
0  CD75C2 
3  2120C1 
i  CDAEC1 
J  212EC1 
:  CDAEC1 
'  CD2CC2 

>  EB 

I  220A00 

>  21AgC1 
)  CDAEC1 
;  CD2CC2 

EB 

220600 

21B9C1 

CDAEC1 

DB02 


B  OEOO 
0  3E02 
F  320800 
t  CD8EC0 
9  3802 
T  CD98C0 
I  3E02 
:  CDBOCO 
■  3*0800 
!  3D 

I  320800 
I  FEOO 
>  CA6AC0 
I  3eoi 
I  CD98C0 
'  79 

2P 

«r 

AF 

CDBOCO 

C3A2C0 


ENTRYl:  IXl 
SPHL 

ENTRY:  U1 
PUSH 


BEGIN:  MVI 

MTEST:  MVr 
STA 

MTUOP:  CALL 
MVI 
CALL 
MVI 
CALL 

PTCHK:  LDA 
OCR 
STA 
CPI 
JZ 

CONT:  MVI 


H.OSOH 

H, ENTRY 
H 

A,  00 

CODE 

INIIA 

CRLF 

H.MSCI 

PHSG 

H,MSG2 

PMSG 

BBIN 

start 

H.MSG3 

PMSG 

BBIN 

ENAOR 

H.MSCS 

PMSG 

CDATA 


C,«0 
A, 02 
PART 
STUFF 
A,  02 
sruFM 
A, 02 
CHECK 
PART 
A 

PART 

00 

RECYCLE 
A, 01 
STUFM 
A.C 


.-ZERO  ACC 
IRESET  I/O  PORT 


JRESET  10  flag 


•.LOAD  TEST  BYTE 
•.LOAD  TEST  BYTE 

JSTUFF  MAJOR  ALL  OVER 
iSET  TWO  AS  MINOR 
jSrUFF  MINOR 
:  SET  2  AGAIN 

:now  check  all  loc 

ISTORE  NEW  PART 
;FINISH  THIS  PASS  7 
;YES 

:No  continue 
;STUFF  minor  sent 
JLOAD  MAJOR  BYTE 
iCOMPLIHENT  MAJOR  BYTE 
;SAVE  NEW  BYTE 
.•ZERO  OTHER  TEST  BYTE 


1  79 

I  320800 
:  2162C1 
CDAEC1 
3A0A00 
FE03 
CA21F0 
B7 

C2OAC0 

A7 

3A0800 

B7 

CA3BC0 

IT 

2r 

«F 

C33DCD 


RECYCLE : 


A.C 

PART 

H.HSGA 

PMSG 

CODE 

03H 

RENT 

A 

ENTRY 

A 

PART 

A 

begin 


JSAVE  INVERT  TB  TEMP 
:END  OF  PAS  MESSAGE 

;CH*R  CODE 
ICONTROL  C 
IRETORN  TO  MONITRO 
;5ET  FLAGS 
ISTART  OVER 
{CLEAR  CARRY 
;  RECOVER  TEST  BYTE 


{NEW  test  byte 
{  ANOTHER  PAS 
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0004  s 
0006  = 
0008  s 

OOCk  : 


C08E  CDDECO 
C091  71 
C098  CD06C1 
C095  C391CO 


0098  CCDECO 
COji  47 
CD9C  FEOO 
C09E  C2A6C0 
COAI  79 
C0k2  ^F 
C0A3  77 
C0A4  0603 
C0A6  C006C1 
C0A9  05 
COaA  C2A6C0 
COAD  C3A1C0 


RENT; 

EQJ 

0F021H 

START: 

EOU 

04H 

ENADR: 

EOU 

06H 

PART; 

EOU 

08H 

CODE: 

t 

EOU 

OAH 

STUFF: 

CALL 

STASTO 

DOIT: 

MOV 

M.  C 

CALL 

HILOX 

« 

JMP 

DOir 

STUFM: 

CALL 

STASTO 

HIN08: 


HIL: 


WOV 

CPI 

JNZ 

MOV 

CMA 

HOV 

MVI 

CALL 

DCS 

JVZ 

JMP 


B.A 

00 

HIL 

*.C 

m,a 

B,03 

HILO* 

B 

HIL 

NINOR 


;momiior  ehiby 

;LOC  CF  SIARI  ADDS 
;LOC  OF  END  ADDS 
;LOC  FOR  PART 
;LOC  FOR  CODE 


.  - —  .  ■.C.WWIA  uvcn 

:S£E  IF  ALL  MEM  DONE 
:N0  KEPP  ON  STJFFING 


.•load  addr  again 

;MINOR  COUNTER 
;MIN0R  WORD  STUFF 
;N0 


•  •nr  *•  wi-i r  u  An tn  i  Ur 

:sruFF  MINOR  byte  in  mem 
minor  COUNT  AT  3 
iINC  A  CHK  IF  DONE 
-.DEC  MINOR  COUNTER 
:OK  TO  STUFF  NO 
:TES 


COBO  CDDECO 
COB 3  47 
0084  FEOO 
C0B6  C2C1C0 
C0fl9  79 
COBA  ?F 
COBB  BE 
COBC  0603 
COBE  C3C3CO 
C0C1  ■’9 
COCJ  BE 
C0C3  C5 
COCA  C4E6C0 
C0C-'  Cl 

coce  0B03 

COCA  E602 
coco  CAD4C0 
COCF  DBOJ 
C0D1  320AOO 
COON  CD06C1 
C0D7  05 
CODS  CPC  ICO 
CODB  C3B9CO 


CODE  2A0600 
COEl  EB 
C0E2  2A0400 
C0E5  C9 


CHECK, 

MINR: 

NAJR: 

CKEND: 

riN: 


CALL 

MOV 

CPI 

JNZ 

MOV 

CMA 

CMP 

MVI 

JMP 

MOV 

CMP 

PUSH 

CN2 

POP 

IN 

ANI 

JZ 

IN 

STA 

CALL 

OCR 

UNZ 

JMP 


STAS  TO 
B.A 

00 

MAJR 

A.C 

M 

R.03 

CKEND 

A.C 

N 

B 

ERR 

B 

CSTAT 

02H 

FIN 

CDATA 

CODE 

HILOX 

B 

MAJR 

mink 


STASTO:  LHLO  ENADR 
XCHC 

LHLD  START 


ILOAD  start  and  END 
:L0AD  MINOR  COUNT 
: COUNT  ZERO 
;H0  GO  to  MAJOR 
.•LOAD  TEST  BYTE  MAJOR 

complimenyt 
compare  mem  loc 

•.minor  COUNT  AT  3 
'J-iJ^CK  FOR  ERROR  OR  ABORT 
:L0A0  MAJOR  TEST  BTTE 

iBfsJSRrUEGl 

:CHECK  KEYBOARD 


iREAO  KEYS 

:OEC  MINOR  COUNT 
;COUMI  ZERO  DO  MINOR 


iLOAD  END  ADDR 
•.MOVE  END  TO  CAD 
:LOAD  START 
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6  05 
1  F5 

0  CD75C2 
3  S'! 

:  50 

)  CDUC2 
)  1608 
!  CDFBC1 
i  FI 
i  57 

’  CDE5C1 
1604 
CDFBCl 
7E 

CDE5C1 

78 

D1 

C9 


;S4VE  END  ADDR 


•.OUTPUT  BAD  ADDR 
iSPACE  COUNT 
ISPACE  OVER  8 


IPRINT  TEST  BYTE 


IPRTNT  BAD  byte 

-.hove  test  byte  back 
: restore  end  addr 


6  F5 
?  23 
I  7C 
3  BA 

I  C216C1 
>  70 
P  BB 

■  C216C1 
!  FI 
33 
33 
C9 

F1 

C9 

0E3F 
C08EC 1 
C305C0 


HILOX:  PUSH 
INK 
HOV 
CHP 
JNZ 
MOV 
CMP 
JNZ 
POP 
IHX 
INK 
RET 

OIFF;  POP 
RET 

PROS;  MVI 


;SAVE  ACC 

;INC  CURRENT  ADDR 

itOAD  HIGH  ODER  ADDR 

.-compare  with  end 

:N0  HATCH 
:t,OAD  LOW  ORDER 

jcohpare  low  orders 

iNO  match 
, -MATCH  END 

JFAKE  RETURN  ONE  LEVEL  OUT 


.-CONTINUE  STUFFING 


IPRINT  7 


ooSJuIaTsS  ooh.oah.. memory  test*. 0 

ODOAA5AE5AMSC3  DB  OOH ’oAH ’ 'ENTER  ADDRESS 

odoaasaeaamsga  DB  ooS.' oa'S.' oah’o° 


0000001  OB 
00000001B 
1 


; CONSOLE  STATUS  PORT. 

; CONSOLE  COMMAND  PORT. 
; CONSOLE  DATA  PORT. 

iKeyboard  ready  bit. 

jPRINT  READY  BIT. 

! CONSOLE  NULL  COUNT. 


C177  DB03 
C179  E602 
C17B  3E00 
C17D  C8 
C17E  2F 
ei7r  C9 


;  CHECK  CONSOLE  INPUT  STATUS. 


CSTAT 
ami  CKBR 

MVI  A.O 

RZ 

CMA 

»ET 


jREAO  CONSOLE  STATUS. 

; look  at  KB  beady  bit. 

;SET  A»0  FOR  RETURN. 
jROT  READY  WHEN  ZERO. 
jXF  READY  A.FF. 

;REIURN  FROM  CONST, 


108 


READ  A  CHARACrER  ERQK  CONSOLE 


Cl  80 

DB03 

CONIN; 

CSTAT 

;REAO  CONSOLE 

CJ8E 

£502 

A.  I 

CKBR 

IF  NOT  BEADY, 

C18H 

CA80C1 

JZ 

CON  IN 

READY  WHEN  HIGH. 

C137 

DB02 

IN 

CDATA  '.READ  A  CHARACTER. 

C189 

D302 

OUT 

CDATA 

CIgB 

E67F 

ANI 

TEH 

MANE  most  sic,  BIT  » 

C18D 

C9 

RET 

;  WRITE 

A  CHARACTER  TO  THE  CONSOLE  DEVICE. 

CI8E 

3E0D 

CONDI; 

HVI 

A.ODH 

IF  IT’S  A  CR, 

Cl  90 

39 

CMP 

C 

THEN  HOP  OUT 

c  19’ 

CA9EC1 

JZ 

CONJl. 

TO  HULL  ROUTINE. 

C19'< 

DB03 

C0S0T1: 

IN 

CSTAT 

READ  CONSOLE  STATUS. 

C19E 

ESDI 

ANI 

CPIR 

IF  NOT  READY, 

C198 

CA9'ICI 

JZ 

coNon 

READY  WHEN  HIGH. 

C19B 

79 

MOV 

A.C 

GET  CHARACTER. 

C19C 

0302 

OUT 

CDATA 

PRINT  IT. 

C19E 

C9 

RET 

RETURN. 

C19F 

C5 

CONJl: 

PUSH 

B 

SAVE  8AC. 

C1A0 

0601 

HVI 

B, CNULL 

GET  NULL  COUNT. 

CtA2 

CD9«C1 

CONULI: 

CALL 

C0N0T1 

PRINT  CR. 

C1A5 

OEOO 

MVI 

r..o 

GET  NULL  CHAR. 

CU7 

05 

DCR 

B 

DECREMENT  COUNTER. 

C1A8 

C2A2C1 

JNZ 

CON  lit  1 

DO  NEXT  NULL. 

CUB 

Cl 

POP 

B 

RESTORE  BiC. 

ClAC 

79 

MOV 

R,C 

RESTORE  A. 

CUD 

C9 

RET 

RETURN. 

rus. 


;  PRXVr  MESSAGE  UMTIl  ZERO 

;  MESSAGE  ADDRESS  REG  H  A  1. 


«  «  1  f  1 

*  •  >  *  * 

CUE  7E 

PMSG! 

MOV 

A,M 

;CET  CHAR 

CIAP  B7 

ORA 

A 

jIS  IT  A  ZERO 

C1B0  C8 

RZ 

C1B1  4F 

MOV 

C.A 

iOTHERWISE  PRINT 

C1B2  CD8EC1 

CALL 

CONOT 

C185  23 

INX 

H 

;INC  ADORESSS 

C1B6  C3AEC1 

1 

JMP 

PMSG 

C1B9  OOOAOA4CilFMSC6 

i  i  f  i  i 

OB 

I  R  1  I  t  f  «  f  1  f 

ODH.OAH, 

»•#»»» 

OAH.’LOC.  TEST  BYTE 

PRINT  6  BIT  WORD  IN  BINART  FORMAT 

f 

1 

INPUT: 

DATA  IN 

REG  A 

C1E5  *7 

f  >  t  «  f 

BITS; 

MOV 

B,A 

;  DATA 

C1E6  3F80 

HVI 

A,80H 

;  MASK 

CIE8  0E30 

OVER; 

MVI 

C,30H 

C1EA  5F 

MOV 

E,A 

:  STORE  MASK 

C1EB  AO 

ANA 

B 

;  AND  WITH  mask 

C1EC  cAnci 

JZ 

PR  NT 

;  JUMP  IF  ZERO 

CAEF  0E31 

MVI 

C,31H 

Cin  CD8EC1 

PR  NT: 

CALL 

CONOT 

Cip*  AO 

ANA 

B 

;  ZERO  CARRY 

C1F5  78 

MOV 

A.E 

;  LOAD  MASK 

C1f6  1F 

RAN 

C1F7  D2E8C1 

JNC 

OVER 

C1FA  C9 

RET 

MEMORY  BYTE’ 
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C1FB 

0E20 

BLNK: 

MVI 

C,20H 

;PHINT  BLANKS 

CIFD 

009*101 

LP19: 

CALL 

coNon 

C200 

15 

DOR 

D 

C201 

C2FDC1 

JNZ 

LP19 

C20« 

09 

RET 

C205 

7A 

BINHA; 

MOV 

A.D 

C206 

IF 

RAR 

C207 

IF 

RAR 

C208 

IF 

RAR 

C209 

IF 

RAR 

C20A 

CD22C2 

CAU. 

BIN1 

C20D 

HF 

MOV 

0,  A 

C20E 

CD8EC1 

CALL 

coNor 

C21 1 

7A 

MOV 

R.D 

C212 

CD22C2 

CALL 

BIN1 

C215 

«F 

MOV 

C.A 

C216 

CD8EC1 

CALL 

CONOT 

C219 

09 

RET 

OUTPUTS  FOUR  HEX  DIGITS  IN  ASCII 
ENTER  WITH  DATA  IN  REG  PAIR  E  AND  D 


C21A 

CD05C2 

BINB: 

CALL 

BINHA 

C21D 

53 

MOV 

D.E 

C21E 

CD05C2 

CALL 

BINHA 

0221 

09 

. 

RET 

C222  E60F 

C22«  C630 

C226  FE3A 

C228  D8 

C229  C607 

C22B  C9 

CONVERTS  HEX  TO  ASCII 

INPUT:  **  BITS  HEX  REG  A 

OUTPUT:  8  BIT  ASSCII  REG  A 

JIN1:  ANI  OFH 

ADI  ■  30H 

CPI  3AH 

RC 

ADI  07H 

RET 

INPUTS  «  oiOITS  FROM  CONSOLE 

RETURN;  «  HEX  DIGITS  IN  REG  E-D 

C22C  C080C1 

( 

1BIN;  CALL  CONIN 

C22F  CD5BC2 

CAU  AHS1 

C232  17 

RAL 

C233  17 

RAL 

023*1  17 

RAL 

C235  17 

RAL 

C236  E6F0 

ANI  OFOH 

C238  57 

NOV  D,A 

C239  CD80C1 

CAU  CONIN 

C23C  CD5BC2 

CAU  AHS1 

C23F  E60F 

ANI  OFH 

C21I1  B2 

ORA  D 

C2A2  57 

MOV  D,A 

C2lt3  CD80C1 

CALL  CONIN 

C2A6  CD5BC2 

CAU  ANSI 

02*19  17 

RAL 

C2AA  17 

RAL 

C2NB  17 

RAL 
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C3<4C  17 
C2«D  E6F0 
C2i4F  5F 
C250  CD80C1 
C253  CDiBCa 
C256  E60F 
C258  B3 
C259  5F 
C25A  C9 


C25B  00 
C25C  0630 
C25E  FEOA 
C260  08 
C261  0607 
C263  C9 


C2611  3EAA 
C266  0303 
C268  3E'tO 
C26A  0303 
C26C  3ECE 
C26e  0303 
C270  3E37 
C272  0303 
C27A  C9 


C275  OEOD 
C277  C08EC1 
C27A  OEOA 
C27C  C09AC1 
C27F  0E7F 
C281  C09AC1 
C28A  CD8EC1 
C287  C9 


RAL 

ANI 

OF  OH 

MOV 

E,A 

CALL 

CONIN 

CALL 

AHSl 

ANI 

OFH 

ORA 

E 

MOV 

E,A 

RET 

:  CONVERT 

Ascii’fo’HEx’”' 

:  INPUT; 

8  BIT  ASCII  REG 

;  OUTPUT: 

A  bit  hex  REG  A 

■  I 

AHSl:  NOP 

SUI 

3OH 

CPI 

OAH 

RC 

SUI 

07H 

RET 

I  *  I  »>  I  I  I 

t  t  f  t  f  i  !  i 


..-.*ATE  SIO  PORTS 


«  >  t  t  I  »  I  t  f  I  t  I  t  I 
» 

INITA:  MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
RET 


A.OAAH 

CSTAT 

A.VOH 

CSTAT 

A.OCEH 

CSTAT 

A,37H 

CSTAT 


!GET  DUMMT  hOOE  WORD 
JOUTPUT  IT 
!GET  RESET  BIT 
.•RESET  SIO  BOARD 
:CET  REAL  HOOE  WORD 
.•SET  THE  MODE  FOR  REAL 
.•GET  THE  COMMAND 
.-OUTPUT  IT 


CRLF: 

MVI 

C,13 

;CR 

LF: 

CALL 

CONOT 

MVI 

C,  10 

:LF 

CALL 

CONOT 1 

MVI 

CALL 

C,7FH 

CONOT 1 

CALL 

CONOT 

RET 
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►^INI-«E«CaY  TEST 
?aCM  VE5S:0M  FCR  0  ro  1COH 

BRIAN  J.  MN-AN 


C290 

ORG 

0C290H 

C290 

P3 

ENTER: 

DI 

C291 

3EFE 

MVI 

A, OF EH 

C293 

D3FF 

our 

OFFH 

C295 

210000 

LXI 

H.OOOH 

C29S 

AF 

LP2: 

XflA 

A 

C299 

77 

LPl: 

MOV 

M,  A 

C29A 

U6 

MOV 

B.M 

C293 

38 

CMP 

3 

C29C 

C2FDC2 

JSZ 

Esai 

C29F 

3C 

INR 

A 

C  2A  0 

C299C2 

JN2 

IPI 

C2A3 

23 

ISX 

H 

CSAR 

1 100FF 

LXI 

O.OFFOOH 

C2A7 

EB 

XCHG 

C2A8 

19 

DAD 

D 

C2A9 

EB 

XCHG 

C2AA 

D298C2 

JNC 

LP2 

;  PHASE  II 

C2AD 

3EFD 

MVI 

C2AF 

D3FF 

ojr 

C2S  ! 

210000 

LXI 

C2511 

7A 

LP3:  MOV 

C235 

23 

INX 

C286 

1  lOOFF 

LXI 

C2B9 

EB 

XCHG 

C2SA 

19 

DAD 

C2BB 

EB 

XCHG 

C23C 

D2BVC2 

JNC 

;  BEAD 

C2BF 

210000 

LXI 

C2C2 

7E 

LP«:  MOV 

C2C3 

99 

SJ8 

CSCH 

C223C3 

JNZ 

C2C7 

23 

INX 

C2C8 

1 1 OOFF 

LXI 

C2CB 

EB 

XCHG 

C2CC 

19 

DAD 

C2CD 

EB 

XCHG 

C2CE 

D2C2C2 

JNC 

A,0FDH 

OFFH 

H.OOOH 

M,H 

H 

O.OFFOOH 


LP3 

MEMORY 

H.OOOH 

A,M 

H 

ERRS 

H 

D,  OFFOOH 


LP« 


C2D1  3EFC 
C2D3  D3FF 
C2D5  210000 
C2D8  75 
C2D9  23 
C2DA  1100FF 
C2DD  EB 
C2DE  19 
C2DF  EB 
C2E0  D2D8C2 

C2E3  210000 
C2E6  7E 
C2E7  95 
C2E8  C22FC3 
C2EB  23 
C2EC  1100FF 
C2EF  EB 
C2F0  19 
C2F1  EB 
C2F2  02E6C2 


!  PHASE  III 

i 

MVI 

OUT 

LXI 

I.P5;  MOV 

IKX 
LXI 
XCHG 
DAD 
XCHG 
JNC 

.-READ  MEM 

LXI 

LP6:  MOV 

SUB 
JMI 
INX 
LXI 
XCHG 
DAO 
XCHG 
JNC 


A , OFCH 
OFFH 
H , OOOH 
M.L 
H 

D, OFFOOH 
0 

LP5 

H.OOOH 

A.M 

L 

ERR3 

H 

O.OFFOOH 

0 

LP6 


jOUIPUr  PHASE  I  LIT-S 
iSIART  ADDRESS 
;2ER0  ACC 

;SrCRE  TEST  PATTERN  IN  ^EM 
;READ  BACH  TO  B 

iccmpare  for  ok 

;JUMP  IF  error 
;N£W  TEST  PATTERN 


;STOP  ADDRESS 
:ADD  THO’S  COMPLIMENT 


JPHASE  II  LITES 


:LOW  ADDRESS  TO  MEM 
:STOP  ADDRESS 


;READ  MEMORY 
iCOMPARE 
;JUHP  IF  ERROR 


;PHASE  THREE  LITES 
:STORE  HIGH  ADDRESS  IN  ALL 


;HEAD  MEMORY 
•.COMPARE 


MEM 
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:  ALL 


C2F5 

3EFF 

C2F7 

2190C2 

C2FA 

C33BC3 

> 

[PHASE 

C2FD 

EB 

ERRl: 

C2FE 

UF 

C2FF 

2107C3 

C302 

3EF1 

0304 

C33BC3 

t 

[COMMON 

C307 

7A 

COMERR: 

C308 

210EC3 

C30B 

C33BC3 

C30E 

7B 

LOADD: 

C30F 

2115C3 

C312 

C33BC3 

C315 

79 

TPAT: 

C316 

21 1CC3 

C319 

C33BC3 

-31C 

78 

ACTDAT: 

C31D 

2190C2 

C320 

C33BC3 

PHASE  COMPLETE 
MVI  A.OFFH 
LXI  H, ENTER 
JMP  LITES 


:  ERROR 
XCHG 

MOV  C,A 

LXI  H.COMERR 
MVI  A.OFIH 

JMP  LITES 


ERROR  OUTPUT  ROUTINE 

MOV  A,D 

LXI  H.LOADD 

JMP  LITES 

MOV  A.E 

LXI  H.TPAT 

JMP  LITES 

MOV  A , C 

LXI  H.ACTDAT 

JMP  LITES 

MOV  A.B 

LXI  H, ENTER 

JMP  LITES 


JGO  TO  LITES  PROG 


;SAVE  SAD  DATA 
;RETURN 

:PHASE  I  ERROR  LITES 


:HIGH  ADDRESS 
:RETURN 

:LOW  ADDRES  TO  LITES 
.•RETURN 

:TEST  PATTERN  TO  LITES 
jRETUHN 

;ACTUAL  DATA  TO  LITES 
JSTART  OVER 


0333  EB 
C32«  82 
C325  NT 
C326  DA 
C327  3EF2 
C329  2107C3 
C32C  C33BC3 


i  PHASE  II  ERROR 
ERR2:  XCHG 

ADD  D 

MOV  B.A 

MOV  C,D 

MVI  A,0F2H 

LXI  H.COMERR 

JMP  LITES 


ISAVE  BAD  ADDRESS 

•.PHASE  II  ERROR  TO  LITES 
JREIURN 


C32F  EB 
C330  83 
C331  <17 
C332  <1B 


C333  3EF3 
C335  2107C3 
C338  C33BC3 


;  PHASE  III  ERROR 
ERR3:  XCHG 

ADD  E 


MOV  B.A 

MOV  C.E 

MVI  A.OF3H 

LXI  H.COMERR 

JMP  LITES 


;SAVE  BAD  ADDRESS 


;PHASE  II  ERRO  TO  LITES 
;RETURM 
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C800 
C800 
C8O3 
C80lt 
C8O5 
C808 
C80B 
C80E 
C81  \ 

cam 

C817 

C819 

C81C 

C81F 

C822 

C823 

CS26 

C829  < 

C82C  I 
C820 
C830 
C832 
C835  C 
C838  C 
C83S  3 
C83D  C 
C8<I0  C 
C8<i3  3 
cans  3 


18  MAR  79 
PROH  VERSION 


0  217000 

3  F9 

4  F3 

5  CD52CD 
3  2162C9 
3  C08CCC 
:  2185C9 
I  CD8CCC 
I  CDOACA 

'  FE59 
I  C205C8 
:  C063CD 
C063CD 
AF 

320800 

320400 

CDOaCB 

AF 

320500 

3E26 

320600 

CD82C8 

CDB5C8 

3E22 

CD72CC 

CDE7C8 

3E01 

320500 


‘8  P8O3 
A  E602 
C  CA5BC8 
F  DB02 
1  fE03 
3  CAOOFO 
6  FE02 

8  CA05C8 

9  C0B5C8 

3  cooeca 

1  CDE7C8 
I  CD17C9 
'  3*0500 
I  3C 

I  320500 
:  0626 
'  320600 
1  FE4P 
C248C8 
360400 
3C 

320400 

C32CCS 


ORG 

ENTRYI:  lXI 
SPHL 

or 

ENTRY:  CALL 
LXI 
CALL 
LXI 
CALL 
CALL 
CPI 
JNZ 
CALL 

L00P6:  CALL 
XRA 
STA 
STA 
CALL 

I.00P4:  XRA 
STA 
MVI 
STA 
CALL 
CALL 
MVI 
CALL 
CALL 
MVI 
SIA 


OC8OOH 

H,070H 


INITA 

H.MSGI 

PMSG 

H.MSGIA 

PMSG 

CONIN 

entry 

CRLF 

CRLF 

A 

errflg 

LPCNT 

HOME 

A 

inner 

A,  38 

OUTER 

PAT 

INWRT 

A,  34 

SEEK 

INRD 

A, 01 

INNER 


LOOM?  CONSOLE  INTERRUPT 
L00P8:  IN  CSTAT 

AN  I  02H 

JZ  LOOP3 

IN  COATA 

CPI  03H 

>>2  RENT 

CPI  02H 

Jz  entry 


LOOPS:  CALL 
CALL 
CALL 
CALL 
LPA 
INR 
STA 
API 
STA 
CPI 
JNZ 
LPA 
INR 
STA 
JMP 


INNRT 

OUTWRT 

INRP 

OUTRB 

INNER 

A 

INNER 

38 

OUTER 

77 

LOOPS 

LPCNT 

A 

LPCNT 

L00P4 


:SET  STACK  POINTER 


•.INITI  tty 
;0PENING  MESSAGE 


:CHECK  KEYBOARD 
CHECK  IF  Y 
17  START  OVER 


.-ZERO  ACC 
;ZERO  EERROR  FLAG 
iZERO  LOOP  COUNT 
JHOME  DRIVE  TO  TRK  0 

.•ZERO  INNER  TRK 
•.OUTER  TRK 

.•GET  PATTERN 


I"*  00 

f”  OP  10  DO  PAIRS 
START  PAIRS  WITH  TRK01 


ikeybaorp  ready 

;H0 

;REad  keys 
iCONTROL  C 
iBETURN  10  MONITOR 
iCOHTROLB 
.•start  over  again 


IWRITE  INNER  TRK 
;»EAD  inner  TRK 


5 PINO  next  outer  T4K 
ISTORE  OUTER  TRK 
JTRK  77  yet  7 

I  not  done  TEI 

•.LOOP  COUNTER 
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C882  3AOOOO 
C885  CAA3C8 
C888  FEOi 
C3SA  CAA9C8 
C880  FE02 
C88F  CAAFC8 
C892  21ACC9 
C895  CD8CCC 
C898  D803 
C89A  E602 
C89C  CA1FC8 
C89F  76 
C8AO  C305C8 
C8A3  3EFF 
C8A5  320700 
C8A8  C9 
C8A9  3E00 
C8AB  320700 
C3AE  C9 
C8AF  3E55 
C8B1  320700 
C8B9  C9 


C8B5  3A0500 
C8B8  320B00 
C8BB  CD72CC 
CSBE  3E01 
C8C0  320C00 

C8C3  AF 
C8C<I  320000 
C8C7  CD37CC 
CeCA  3AODOO 
C8CD  B7 
C8CE  C2C3C8 
C801  3AOCOO 
C8D4  3C 
C8D5  320C00 
C8D8  FE1B 
C80A  C2C3C8 
C800  C9 


C8DE  3A0600 
C8E1  320B00 
C8E4  C3BBC8 


PArrERN  nOJNriNE 
I.DA  LPCNI 

JZ  1ST 

CPI  01 

JZ  SECD 

CPI  02 

JZ  THIRD 

LXI  H,MSG2 

CALL  PMSG 

IN  CSTAT 

ANI  02H 

JZ  L00P6 

HLT 

JMP  ENTRY 

MVI  A.OFFH 

STA  PATEN 

RET 

MVI  a.OOH 

STA  paten 

RET 

MVI  A,55H 

STA  PATEN 

RET 


( 

WRITE 

INNER  IRK 

INWRT: 

LDA 

INNER 

STA 

IRK 

BOTH: 

CALL 

SEEK 

MVI 

A. 01 

STA 

SECT 

L00P1: 

XRA 

A 

STA 

REPETE 

CALL 

WRITE 

LDA 

REPETE 

ORA 

A 

JNZ 

L00P1 

LDA 

SECT 

INR 

A 

STA 

SECT 

CPI 

27 

JNZ 

L00P1 

* 

RET 

i 

f 

WRITE 

OUTER  IRK 

OUIWRT; 

LDA 

OUTER 

STA 

TRK 

JMP 

BOTH 

rST: 

SECD: 

THIRD 


expandable 

.-LOAD  LOOP  counter 
.•SECOND  PASS 


;End  of  pass 
;CHECK  KEYBOARD 

.-CONTINUE  TEST  UNTIL  INTERUPTED 


.•all  ones  pa  tern 

•.STORE  PATTERN 
:ALL  ZERO  PATTERN 


lALTER  PATTERN 


:MOV£  HEAD  TO  TRK 

iFirst  sector 


jZERO  ACC 
•.ZERO  REPEAT  FLAG 
:WRITE  ONE  SECTOR 
•.LOAD  REPEAT  FLAG 
:SET  FLAGS 
iREPEAT  SECTOR 

{INC  SECTOR 

{ALL  SECTOR  DONE  7 


{LOAD  OUTER  TRK 
{COMMON  WRITE  ROUNTINE 


C8E7  3A0500 
C8EA  320BOO 
C8ED  CD72CC 
C8F0  3E01 
C8F2  32OC00 


INRD: 

B0TH2: 

LOOPS: 


READ  INNER  IRK 

lda  inner 

STA  TRK 

CALL  SEEK 


MVI 

STA 


A, 01 
SECT 


XRA  A 

STA  ERRFLC 

STA  REPETE 

CALL  read 

ERA  A 

STA  ERRFLG 

lda  REPETE 

ORA  A 

JNZ  LOOPS 

lda  sect 

INR  A 

STA  SECT 

CPI  27 

JNZ  LOOPS 

RET 


{MOVE  HEAD  TO  TRK 
{FIRST  SECTOR 
{ZERO  SECTOR 


{ZREO  ERROR  COUNT 


READ  ONE  SECTOR 
ZERO  ACC 


{REPEAT  FLAG 
{SET  FUGS 


{NEXT  SECTOR 

{ALL  SECTORS  DONE  7 

;R0 
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; 

READ 

OUTf^R  TRK 

C917 

3A0600 

OUTRO: 

LDA 

muter 

:OUrER  TRK  NO. 

C91A 

320B00 

STA 

TRK 

C91D 

C3EDC8 

JMP 

B0TH2 

C920 

21BCC9 

hRPNT: 

LXI 

H,MSG3 

; ERROR  MESSAGE 

C923 

CD8CCC 

CALL 

PM  SC 

C926 

3A0800 

LDA 

ERRFLG 

;ERROR  COUNT 

C929 

57 

MOV 

D.A 

C92A 

CD2BCD 

CALL 

BINHA 

jPRINT  ERROR  COUNT 

C92D 

21F3C9 

LXI 

H,HSG4 

iHEADINGS 

C930 

CD8CCC 

CALL 

PMSG 

C933 

1603 

HVI 

0,03 

JSPACE  OVER 

C935 

CD21CD 

CALL 

BLNK 

C938 

3A0B00 

LOA 

TRK 

;TRACK  NO. 

C93B 

57 

MOV 

D.A 

C93C 

CD2BCD 

CALL 

BINHA 

jPRINT  TRACK  NO. 

C93F 

1610 

MVI 

0,16 

;SPACE  OVER 

cgNi 

CD21LD 

CALL 

BLNK 

C9't>t 

3A0C00 

LDA 

SECT 

: SEC TOR  MO. 

C9<t7 

57 

MOV 

D,A 

C9N8 

C02BC0 

CALL 

BINHA 

;PRINT  SECTOR  NO. 

C9NB 

1600 

MVI 

D,13 

: SPACE  OVER 

CBND 

CD21CD 

CALL 

BLNK 

C950 

3A0700 

LDA 

PATEN 

C953 

COOBCO 

CALL 

BITS 

iPRINT  TEST  PATTERN 

C956 

160C 

MVI 

D,12 

: SPACE  OVE 

C958 

C021CD 

CALL 

BLNK 

C95B 

3A0900 

LDA 

BADBT 

;LAST  BAD  BYTE 

C95E 

COOBCO 

CALL 

BITS 

:PRINT  LAST  BAD  BYTE 

C961 

C9 

RET 

0004 

a 

LPCNT: 

EOU 

11 

; SPACE  FOR  LOOP  COUNTER 

0005 

a 

INNER: 

EQU 

5 

;SPACE  FOR  INNER  TRK  NO. 

0006 

a 

OUTER: 

EOU 

6 

•.SPACE  FOR  OUTER  TRK  NO. 

0007 

a 

PATEN 

EQU 

7 

;SPACE  FOR  TEST  PATTERN 

0008 

a 

ERRFLG: 

EQU 

8 

JSPACE  FOR  ERROR  COUNT 

0009 

a 

BAOBT: 

EOU 

9 

: SPACE  FOR  BAD  BYTE 

OOOA 

a 

BOTRK: 

EQU 

OAH 

:SPACE  FOR  DISK  READ  TRK 

0000 

a 

REPETE: 

EQU 

ODH 

jREPETE  FLAG 

C962 

OOOA41|Ii953MSG1: 

DB 

OOH,OAH, 

•DISK 

TEST  NO.  1  FORMATTED  TEST 

C985 

OOOAUCItFAIMSGIA! 

DB 

ODH.OAH, 

•LOAD 

SCRATCH  DISK  TYPE  Y  WHEN 

C9AC 

OOOA20<I5<IEMSG2 

OB 

OH, OAH. 

•  END 

OF  PASS  ' ,0 

C9BC 

OOOAllll«15'lMSG3! 

DB 

ODH.OAH, 

•DATA 

ERROR  ON  DISK  CHECK 

C9F3 

OOOA205«52«SGit: 

DB 

ODH.OAH, 

'  TRACK  NO.  SECTOR  NO. 

CA37 

OOOAit8«5«1MSG5: 

DB 

ODH.OAH, 

•HEAD 

POSITION  ',0 

CADS 

OOOA4<ti«953HSG6: 

DB 

ODH.OAH, 

•DISK 

TRACK  CONTROLLER 

CAB3 

ODOAOOOA20MSG7: 

DB 

ODH.OAH, 

ODH.OAH,'  11  EXECUTION  STOPPED 

CAA2 

0D0A5<*5950HSGe: 

DB 

ODH.OAH, 

•TYPE 

R  TO  RETRY,  C  TO  CONTINUE 

0003 

M 

CSTAT 

EQU 

3 

;CONSOLE  STATUS  PORT. 

0003 

a 

CCOM 

EQU 

3 

; CONSOLE  COMMAND  PORI. 

0002 

a 

CDATA 

EQU 

2 

: CONSOLE  DATA  PORT. 

0002 

a 

CKBR 

EQU 

0000001  OB 

;KEYBOARD  READY  BIT. 

0001 

a 

CPTR 

EQU 

0000000 IB 

•.PRINT  READY  BIT. 

0001 

a 

CNULL 

EQU 

1 

iCONSOLE  NULL  COUNT. 

OOFS 

a 

DISK 

EQU 

0F8H 

;DISK 

BASE  ADDRESS. 

OOFS 

a 

DCOM 

EQU 

DISK 

;OISK 

COMMAND  PORT. 

OOFS 

a 

OSTAT 

EQU 

DISK 

JOISK 

STATUS  PORT. 

00F9 

a 

TRACK 

EQU 

DISK*1 

•.DISK 

TRACK  PORI. 

OOFA 

a 

SEC  IP 

EQU 

DISK*2 

;DISK 

SECTOR  PORT. 

OOFB 

a 

DOATA 

EQU 

DISK«3 

{DISK 

DATA  PORT. 

OOFC 

a 

WAIT 

EQU 

DISK«« 

•.DISK 

WAIT  PORT. 

OOFC 

a 

DCONT 

EQU 

DISK«4 

;DISX 

CONTROL  PORI. 

OOOB 

a 

TRK: 

EQU 

OBH 

SADDRESS  FOR  TRACK 

OOOC 

a 

SECT: 

EQU 

OCH 

•.ADDRESS  FOR  SECTOR 

'  .0 


’.0 


ERROR  COUNT  IN  HEX 
TEST  BYTE 


'  .0 

LAST  ERROR' 


'.0 


SECTOR  '.ODH.OAH, 


ANYTHING  ELSE  STOP  ' ,0 
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CADA  0B03 
CADC  E602 

CADE  CADACA 
CAEt  DB02 
CAE3  D302 
CAE5  E67F 
CAE7  C9 


read  a  CHARACTER  FROM  CONSOLE. 


CONIM:  IN  CSTAT 

AHI  CKBR 


;REAO  CONSOLE  STATUS. 
;IF  NOT  READ?, 


JZ  CONIN 
IN  CDATA 
our  CDATA 
AHI  7FH 
RET 


jREAD?  WHEN  HIGH. 
;READ  A  CHARACTER. 

:make  most  sig.  bit 


0. 


CAE8  3£0D 
CAEA  B9 
CAES  CAF9CA 
CAEE  CB03 
CAFO  E601 
CAF2  CAEECA 
CAF5  79 
CAF6  0302 
CAF8  C9 
CAF9  C5 
CAFA  0601 
CAFC  CDEECA 
CAFF  OEOO 
CBOl  05 
CB02  C2FCCA 
CBO5  Cl 
CB06  79 
CB07  C9 


CB08  3ED0 
CBOA  D3F8 
CBOC  AF 
CBOD  320900 
CB10  DBFS 
CB12  OF 
CBI3  DA10CB 
CB16  3E03 
CB18  D3F8 
CB1A  DBFC 
CB1C  B7 
CB1D  FA2CCB 
CB20  DBFS 
CB22  57 
CB23  E60A 
CB2S  CA2CCB 
C828  7A 
CB29  E691 
CB2B  C8 
CB2C  21FACC 
CB2F  7  A 
CB30  E691 
CB32  57 
C833  C37RCB 


CB36  3E02 
CB38  D3FC 
CB3A  C9 


WRITE  A  CHARACTER  10  THE  CONSOLE  DEVICE. 


CONOT:  MVI 
CMP 
JZ 

C0N0T1:  IN 
AN! 
JZ 
MOV 

our 

RET 

CONUL;  PUSH 
MVI 

CONUL 1;  CALL 
MVI 
OCR 
JNZ 
POP 
MOV 
RET 


A.ODH 

C 

CONUL 
CSTAr 
CPTR 
CONOT 1 

A. C 
CDATA 

B 

B. CNULL 
CONOri 

C. O 
S 

CONUL 1 
B 

A,C 


;IF  IT'S  A  CR, 

;THEN  HOP  OUT 
;T0  NULL  ROUTINE. 
jREAD  CONSOLE  STATUS. 
;IF  NOT  READ?, 

;READ?  WHEN  HIGH. 

;GEI  CHARACTER. 
jPRINT  IT. 

:RETURM. 

;SAVE  BAC. 
jGET  MOLL  COUNT. 
iPRINT  CR. 

:CET  MULL  CHAR. 

-,decrement  counter. 

jDO  NEXT  NULL. 
;RESTORE  BAC. 

; RESTORE  A. 

.'RETURN. 


MOVE  DISK  TO  TRACK  ZERO. 


HOME:  MVI  A.ODOH 

OUT  DCOM 
ERA  A 

STA  TRK 

HOMEI:  in  dsTAT 

RRC 

JC  HOMEI 
MW  A. 3 
OUT  DCOM 
IN  WAIT 
ORA  A 
JM  HERR 
IN  DSTAT 
MOV  D,A 
ANI  4 
JZ  HERR 
MOV  A,D 
AN!  9IH 
RZ 

HERR:  LXI  H.HEMSC 

MOV  A,D 
ARI  9IH 
MOV  D,A 
JMP  ERMSG 

;  SELECT  DISK  NUMBER. 

iNTDSK:  MVI  A. 02 

OSKl;  OUT  OCOHT 
RET 


ICLEAH  AN?  PENDING  COMMAND. 

:ZEHO  ACC 
;  STORE  TRACK 
[READ  DISK  STATUS. 

;LOOK  AT  LSB. 

:WAII  for  not  BUS?. 

:20  MS  STEP  rate. 

:ISSUE  HOME  command. 

:WAir  FOR  INTRO. 

'.SET  FLAGS, 

;ERROR  IF  DRO. 

'.READ  DISK  STATUS. 

;SAVE  IN  REGISTER  D. 

JUOOK  A?  BIT  2, 
jERROR  IF  NOT  TRK  0. 

;CET  STATUS  BACK. 

'.MASK  NON-ERROR  BITS. 

JRETURH  IF  NO  ERROR. 

;PRINr  "HOME  «. 

;MASK  NON-ERROR  BITS. 

SDO  COMMON  ERROR  MSGS. 


SDRIVE  NO.  1 

;SEI  THE  UTCH  WITH  CODE. 
;RCTURN  FROM  SELDSK. 
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I 


;  READ 

THE  SECTOR  AT  SECT,  FROM  THE  PRESENT  TRACK. 

:  SECTOR  IN 

SECT 

;  HEAD  LOAD  FIRST 

CB3B 

218000 

READ: 

LXI 

H,080H 

HEAD  BUFFER 

CB3E 

3AOCOO 

LDA 

SECT 

CBOl 

D3FA 

READ1: 

OUT 

SECTP 

JSET  SECTOR  INTO  1771. 

CB«3 

3E8C 

MVI 

A,8CH 

;COOC  FOR  READ  U/0  HD  LD. 

CB«5 

D3F8 

READE: 

OUT 

DCOM 

jSEND  COMMAND  TO  1771. 

CB«7 

DBFC 

RLOOP: 

IN 

WAIT 

;WAIT  FOR  DRO  OR  INTRO. 

CB<I9 

B7 

ORA 

A 

:SET  FLAGS. 

CBHA 

F250CB 

JP 

RDDONE 

;DONE  IF 

INTRO. 

CB4D 

DBFB 

IN 

DDATA 

;REAO  A  DATA  BYTE  FROM  DISK 

CBUF 

77 

( 

MOV 

N,A 

STORE  IN  BUFFER 

CBSO 

23 

INK 

H 

INC  BUFF  POINTER 

CB51 

C307CB 

t 

JMP 

RLOOP 

I  COMPARE  DATA  WITH  TEST 

BYTE; 

CBSO 

218000 

RDDONE: 

LXI 

H,080H 

HEAD  OF  BUFFER 

CB57 

3A0700 

LDA 

PATEN 

TEST  PATTERN 

CB5A 

07 

MOV 

B.A 

PATTERN  TO  B 

CB5B 

1680 

MVI 

D.OeOH 

COUNTER  FOR  BYTES 

CB5D 

7E 

COMPLP: 

MOV 

A,M 

GET  DATA 

CB5E 

B8 

CMP 

B 

COMPARE  WITH  TB 

CB5F 

C22ACC 

JNZ 

DATERR 

ERROR 

CB62 

23 

ERRET: 

INX 

H 

CB63 

15 

DCR 

D 

DEC  BYTE  COUNT 

CB64 

C25DCB 

JNZ 

COMPLP 

DO  128  TIMES 

CB67 

DBFS 

IN 

DSTAT 

:BEAD  DISK  STATUS. 

CBSS 

E69D 

ANI 

9DH 

:LOOK  AT 

ERROR  BITS. 

CB6B 

57 

MOV 

B.A 

:SAVE  ERROR  BITS 

CB6C 

3A0800 

LDA 

ERRFLG 

READ  ERROR  FLAG 

CB6F 

B2 

ORA 

D 

SET  FLAGS  ON  COMBO 

CB70 

C8 

R2 

;BETURM  IF  NONE. 

CB71 

21E1CC 

LXI 

H ,  RDMSG 

:PRINI  "READ  ". 

CB7“ 

CD8CCC 

ERMSG: 

! 

CALL 

PMSG 

•.PRINT  ORIGIN  MESSAGE. 

! 

• 

1 

COMMON  ERROR  PRINT  OUT 

CB77 

7A 

ERMSC1: 

MOV 

A.D 

;GET  ERROR  BITS. 

CB78 

E680 

ANI 

BOH 

:IF  BIT  7  HIGH. 

CB7A 

2197CC 

LXI 

H.NRMSG 

:«HOT  READY". 

CB7D 

C08CCC 

CNZ 

PMSG 

CB80 

7A 

MOV 

A.D 

-.GET  ERROR  BITS. 

CB81 

E610 

ANI 

ION 

;IF  BIT 

IS  HIGH, 

CB83 

21A2CC 

LXI 

H.RNMSG 

:PRINT  "RECORD  NOT  FOUND" 

CB86 

C08CCC 

CNZ 

PMSG 

CB89 

7A 

MOV 

A.D 

-.GET  ERROR  BITS. 

CB8A 

E608 

ANI 

8H 

;IF  BIT 

IS  HIGH, 

CB8C 

21B0CC 

LXI 

H.CRCNSG 

;PRINT  "CRC  ERROR". 

CB8F 

C08CCC 

CNZ 

PMSG 

CB92 

7A 

MOV 

A.D 

;GET  ERROR  BITS. 

CB93 

E600 

ANI 

«H 

;IF  BIT 

1  IS  HIGH, 

CB95 

21B9CC 

LXI 

H.LDNSG 

IPRIMT  "LOST  DATA". 

CB9S 

C08CCC 

CNZ 

PMSG 

CB9B 

7A 

NOV 

A.D 

:GET  ERROR  BITS. 

CB9C 

E601 

ANI 

1 

;IF  BIT 

IS  HIGH, 

CB9E 

21C4CC 

LXI 

N.BSTNSG 

;PRINT  "BUST". 

CBA1 

C08CCC 

CNZ 

PMSG 

CBAO 

21DACC 

PERHSG. 

LXI 

H.ERRNSG 

IPRINT  "ERROR." 

CBA7 

CD8CCC 

CALL 

PMSG 

CBAA 

7A 

NOV 

A.D 

MOVE  FLAGS  TO  ACC 

CBAB 

E618 

ANI 

18H 

■CRC  OR  RECORD  NOT 

CBAO 

CAEFCB 

JZ 

RETRY 

CBBO 

3EC0 

TRKCHK; 

MVI 

A.OCRH 

CBB2 

D3F8 

OUT 

DCOM 

,READ  ADDRESS 

CBBO 

OBFC 

IN 

WAIT 
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CBB6 

DBFB 

IN 

DDATA 

;TRACX  ADDRESS 

CBB8 

320A00 

SIA 

BDTRK 

CBBB 

DBFC 

CHKS2 

IN 

WAIT 

:DUMP  REST  OF  DATA 

CBBD 

FABBCB 

JH 

CHKS2 

CBCO 

2137CA 

LXI 

H,MSG5 

;HEAD  ERROR  MESSAGE 

CBC3 

CD8CCC 

CALL 

PHSG 

CBC6 

2ia8CA 

LXI 

H,MSG6 

;HEAOINGS 

CBC9 

CD8CCC 

CALL 

PHSG 

CBCC 

1605 

MVI 

D,05H 

CBCE 

CD21CD 

CALL 

BLNK 

;SPACE  OVER 

CBD1 

3A0A00 

LDA 

BDTRK 

:DISK  TRK 

CBOH 

57 

MOV 

D.A 

CBD5 

CD2BCD 

CALL 

BIHHA 

:PRINT  TRK 

CBD8 

1615 

MVI 

D,  15H 

CBDA 

CD21CD 

CALL 

BLNK 

;SPACE  OVER 

CBDD 

DBF9 

IN 

TRACK 

CBDF 

57 

MOV 

D,A 

CBEO 

CD2BCD 

CALL 

6INHA 

•.PRINT  TRK 

CBE3 

1613 

MVI 

D,13H 

CBE5 

CD21CD 

CALL 

BLNK 

CBE8 

3A0C00 

LDA 

SECT 

;SECTOR 

CBEB 

57 

MOV 

D.A 

CBEC 

CD2BCD 

CALL 

BINHA 

;PRINT  SECTO  NO. 

CBEF 

3A0800 

RETRY: 

LDA 

ERRFLG 

CBF2 

B7 

ORA 

A 

:SET  FLAGS 

CBF3 

Ci<20C9 

CNZ 

ERRPNT 

;G0  TO  READ  CHECK  ERROR 

CBF6 

DB02 

IN 

CDATA 

;CLEAR  KEYBOARD 

CBF8 

DBFF 

IN 

OFFH 

;READ  SENSE  SWITCHES 

CBFA 

E601 

ANI 

01H 

;SHITCH  0 

CBFC 

C221CC 

JNZ 

CONT 

CBFF 

21A2CA 

LXI 

H,MSC8 

CC02 

CD8CCC 

CALL 

PMSG 

;REOUEST  INPUT 

CC05 

CDDACA 

CALL 

CONIN 

:READ  KEYS 

CC08 

FE52 

CPI 

•R' 

: CHECK  FOR  R 

CCOA 

CA15CC 

JZ 

FIX 

CCOD 

FEUS 

CPI 

'C' 

:CHECK  FOR  C 

CCOF 

CA21CC 

JZ 

CONT 

CC12 

C300F0 

JMP 

RENT 

CC15 

3E01 

FIX: 

MVI 

A, 01 

;SET  REPETE  FUG 

CC17 

320000 

STA 

REPETE 

CC1A 

CD63CD 

CALL 

CRLF 

CC1D 

CD63CD 

CALL 

CRLF 

CC20 

C9 

RET 

CC21 

CD63CD 

COHT: 

CALL 

CRLF 

CC24 

CD63CD 

CALL 

CRLF 

CC27 

3E01 

MVI 

A, 01 

CC29 

C9 

RET 

CC2A 

320900 

DATERR: 

STA 

BADBT 

JSAVE  BAD  BYTE 

CC2D 

3A0800 

LDA 

ERRFLG 

;LOAD  ERROR  COUNT 

CC30 

3C 

INR 

A 

CC31 

320800 

STA 

ERRFLG 

:HEW  COUNT 

CC34 

C362CB 

, 

JMP 

ERRET 

{RETURN 

WRITE  THE  SECTOR  AT  SECT,  OH  THE  PRESENT  TRACK. 
USE  STARTING  ADDRESS  AT  DMAADO. 

LOAD  HEAD  FIRST 


CC37 

3A0700 

WRITE:  LDA 

PATEN 

CC3A 

47 

HOV 

B.A 

{TEST  PATTERN  IN  B 

CC3B 

3A0C00 

LDA 

SECT 

{LOAD  SECTOR 

CC3E 

D3FA 

WRITE1:  OUT 

SECTP 

{SET  THE  SECTOR  INTO  1771 

CCDO 

3EAC 

MVI 

A.OACH 

{SET  OP  1771  FOR  WRITE. 

CC42 

D3F8 

OUT 

DCOM 

CC«4 

DBFC 

WLOOP:  IN 

WAIT 

{WAIT  FOR  READY. 

CC46 

B7 

ORA 

A 

{SET  FUGS. 

CC47 

F251CC 

JP 

WDONE 

{HOP  OUT  WHEN  DONE. 

1  INSERT 

PATTERN 

HERE 

CC4A 

78 

HOV 

A.B 

{LOAD  TEST  PATTERN 
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ecus 

D3FB 

our 

DDA  lA 

jWHITE  ONTO  DISK. 

CCUD 

23 

INX 

H 

;INCREMENI  MEM  PTR. 

CCUE 

CS'l'ICC 

JMP 

WLOOP 

;KEEP  WRIT!;, 

CC51 

DBFS 

WDQNE: 

IN 

DSTAT 

;R£AD  DISK  .IIATUS. 

CC53 

E6FD 

ANI 

OFDH 

jLOOK  AT  THESE  BITS. 

CC55 

57 

MOV 

D.A 

ISAVE  STATUS  BITS 

CC56 

C8 

PROCER: 

RZ 

;RETURN  IF  NO  ERR. 

CC57 

21E9CC 

WERRO: 

LXI 

H.WTMSG 

:PRINI  "WRITE  ". 

CC5A 

CD6CCC 

CALL 

PMSG 

CC5D 

7A 

MOV 

A,D 

;CEr  ERROR  BITS. 

CC5E 

E640 

ANI 

40H 

;LOOK  AT  BIT  6. 

CC50 

21CACC 

LXI 

H.WPMSG 

IPRINT  "PROTECT  ". 

CC63 

CUBCCC 

CNZ 

PMSG 

CC66 

7A 

MOV 

A.D 

;GET  ERROR  BITS. 

CC67 

E620 

ANI 

20H 

ILOOK  AT  BIT  5. 

CC69 

21D3CC 

LXI 

H.WFMSG 

; PRINT  "FAULT  ". 

CC6C 

CU8CCC 

CNZ 

PMSG 

CC6F 

C377CB 

JMP 

ERMSGI 

;00  COMMON  MESSAGES. 

1  HOVE 

THE  HEAD  TO  THE 

TRACK  IN  REGISTER  A. 

CC72 

D3FB 

SEEK: 

OUT 

DDATA 

: TRACK  TO  DATA  REGISTER 

CC7« 

DBFS 

BUSY: 

IN 

DSTAT 

•.READ  DISK  STATUS. 

CC76 

OF 

RRC 

JLOOK  AT  BIT  0. 

CC77 

DA74CC 

JC 

BUSY 

;WAIT  TILL  NOT  BUSY. 

CC7A 

3E12 

MVI 

A,  12H 

:SEI  FOR  10  MS  STEP. 

CC7C 

D3F8 

OUT 

DCOM 

; ISSUE  SEEK  COMMAND. 

CC7E 

DBFC 

IN 

WAIT 

JWAIT  FOR  INTRO. 

CC80 

DBF  8 

IN 

DSTAT 

;READ  STATUS. 

CC82 

E691 

ANI 

91H 

•.LOOK  AT  BITS. 

CC8<l 

57 

MOV 

D.A 

:  SAVE  STATUS 

CC85 

C8 

RZ 

jRETURN  IF  NO  ERROR 

CC86 

21F2CC 

LXI 

H.SKMSG 

;PRINI  "SEEK  ". 

CC89 

C379CB 

JMP 

ERMSG 

;D0  common  err  MESSAGES 

1  PRINT 

THE  MESSAGE  AT 

HAL  UNTIL  A  ZERO. 

CC8C 

7E 

PMSG; 

MOV 

A,H 

;GET  A  CHARACTER. 

CC8D 

B7 

ORA 

A 

JIF  IT'S  ZERO, 

CC8E 

CB 

RZ 

JRETURN. 

CC8F 

«F 

MOV 

C.A 

;OTHERWISE, 

CC90 

CDESCA 

CALL  CONOT 

jPRINT  IT. 

CC93 

23 

INX 

H 

; INCREMENT  HAL, 

CC99 

C38CCC 

JMP 

PMSG 

JAND  GET  ANOTHER. 

•  CBIOS 

MESSAGES 

FOOO 

S 

RENT 

« 

EQU 

OFOOOH 

JMONITOR  ENTRY 

CC97 

«EilF5‘t2052NRMSC: 

DB 

'NOT  READY 

'.0 

CCA2 

52I45<13*F52RNHSC: 

DB 

•RECORD  HOT  FOUND  '.0 

CCB« 

<I3S2«32000CRCMSC: 

DB 

•CRC  ',0 

CCB9 

RCAF535420LDMSG; 

DB 

'LOST  DATA 

'.0 

CCCA 

't255535920BSyMSa: 

DB 

'BUSY  ',0 

CCCA 

5052«F5«‘I5HPMSC: 

DB 

•PROTECT  ' 

.0 

CCDS 

ABMISBACBRWFMSG; 

DB 

•FAULT  ',0 

CCDA 

<t55252«F52ERRMSG: 

DB 

•ERROR. • ,0 

CCE1 

0D0A524591RDHSG: 

DB 

ODH.OAH.'REAO  ’,0 

CCE9 

0D0A575249WTHSG: 

DB 

ODH.OAH, 'WRITE  ',0 

CCF2 

ODOA5345«5SKMSC: 

DB 

ODH,OAH,'SEEK  ',0 

CCFA 

OOOA«8>)Ft)DHEHSG: 

DB 

ODH.OAH, 'HONE  *,0 

C002 

ODOADDOFSSHNTMSG: 

DB 

OOH.OAH, 'MOUNT  ’,0 
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1  •  1 

1  •  I  1  1  1  »  t 

PRINT  8 

BIT  WORD  IN  BINARY  FORMAT 

INPUT 

:  DATA  IN 

REG  A 

CDOB 

07 

3ITS 

MOV 

B.A 

;  DATA 

CDOC 

3E80 

MVI 

A,80H 

;  MASK 

CDOE 

6E30 

OVER 

MVI 

C.30H 

CDIO 

5F 

MOV 

E.A 

;  STORE  MASK 

GD1 1 

AO 

ANA 

B 

:  AND  WITH  MASK 

CD12 

CA17CD 

JZ 

PRNT 

:  JUMP  IF  ZERO 

CD15 

0E31 

MVI 

C,31H 

CD17 

CDE8CA 

PRNT 

CALL 

coNor 

CDU 

AO 

ANA 

B 

;  ZERO  CARRY 

GDIS 

7B 

MOV 

A.E 

;  LOAD  MASK 

CD1C 

IF 

RAR 

CD1D 

D20ECD 

JNC 

OVER 

G020 

C9 

. 

RET 

CD21 

0E20 

BLNK 

MVI 

C,20H 

;PRINT  BLANKS,  1  IN  RE 

GD23 

CDEEGA 

LP1; 

CALL 

C0N0T1 

CD26 

15 

DCR 

D 

GD27 

C223CD 

JNZ 

LP1 

CD2A 

C9 

RET 

CD2B 

7A 

BINHA:  MOV 

A.D 

CD2C 

IF 

RAR 

GD2D 

IF 

RAR 

CD2E 

IF 

RAR 

CD2F 

IF 

RAR 

CD30 

CD08CD 

CALL 

BIN1 

CD33 

OF 

MOV 

C.A 

CD3‘I 

CDESCA 

CALL 

CONOT 

CD37 

7A 

MOV 

A.D 

C038 

CD08C0 

CALL 

BIN1 

CD3B 

OF 

MOV 

C.A 

CD3C 

CDE8CA 

CALL 

CONOT 

CD3F 

C9 

RET 

(  $ 

t  »  t  t  (  1  1  ( 

OUTPUTS 

FOUR  HEX  Dicirs  IN  ASCII 

ENTER  WITH  DATA  IN 

REG  PAIR  E  AND  D 

CDUO 

CD2BCD 

1 

t 

IINB 

CALL 

BINHA 

CDit3 

53 

MOV 

D.E 

con# 

CD2BCD 

CALL 

BINHA 

CD<t7 

C9 

RET 

CONVERTS 

HEX  TO  ASCII 

INPUT:  0 

BITS  HEX 

REG  A 

OUTPUT: 

8  BIT  ASSCII  REG  A 

CD«B 

E60F 

1 

f 

I1N1: 

AMI 

OFH 

CD4A 

C630 

ADI 

30H 

CDOC 

FE3A 

CPI 

3AH 

CDOE 

D8 

RC 

CDOF 

C607 

ADI 

07H 

CD51 

C9 

RET 
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INiriAIE  SIO  PORTS 


C052 

3EAA 

NITA: 

MVI 

A.OAAH 

:GET  DUMMY  MODE  WORD 

CDSR 

D303 

OUT 

CSTAI 

joutput  it 

CD56 

3E90 

MVI 

A.ROH 

JGET  RESET  BIT 

CD58 

D303 

OUT 

CSTAT 

JRESET  SIO  BOARD 

C05A 

3ECE 

MVI 

A.OCEH 

-.GET  REAL  MODE  WORD 

CD5C 

D303 

OUT 

CSTAT 

;SET  THE  MODE  FOR  REAL 

CD5E 

3E37 

MVI 

A,  37H 

:GET  THE  COMMAND 

CD60 

D303 

OUT 

CSTAT 

JOUTPUT  IT 

CD62 

C9 

RET 

CD63 

OEOD 

( 

RLF: 

MVI 

C.  13 

:CR 

CC65 

C0E8CA 

call 

CONOT 

CD68 

OEOA 

LF: 

MVI 

C,  10 

;i.F 

CD6A 

CDEECA 

CALL 

C0N0T1 

CD6D 

0E7F 

MVI 

C,7FH 

CD6F 

CDEECA 

CALL 

C0N0T1 

CD72 

CDE8CA 

CALL 

CONOT 

CD75 

C9 

RET 

DISC 

TEST  FULL  TRACK  WRITE 

SELECT  TRACK  IN  SENSE  SWITCHES 

PROM  VERSION 

BRIAN  OONLAN 

JUNE  79 

CD80 

ORC 

0CD80H 

CD80 

C38BCO 

EATRTA: 

JMP 

STARTA 

CD83 

218000 

ENTRYB 

LXI 

H,080H 

CD86 

F9 

SPHL 

jSET  STACK 

CD87 

F3 

01 

CD88 

CD52CD 

CALL 

INITA 

:RESEI  SIO 

CD8B 

21F7CD 

STARTA 

LXI 

H.MSGIB 

CD8E 

CD8CCC 

READT: 

CALL 

PMSC 

CD91 

3EOO 

MVI 

A,OOH 

CD93 

320800 

SIA 

ERRFLG 

;ERROR  FLAG  OTHER  TEST 

CD96 

CDDACA 

CALL 

CONIN 

:REAO  KEYBOARD 

CD99 

FE59 

CPI 

•T' 

CD9B 

2139CE 

LXI 

H,MSC2A 

CD9E 

C28ECD 

JNZ 

READT 

CDAl 

CD08CB 

CALL 

HOME 

CDAD 

B7 

STARTB 

ORA 

A 

;SET  FLAGS 

CDAS 

C28BCD 

JNZ 

STARTA 

:ERROR  START  OVER 

CDA8 

2U«C0 

LXI 

H, STARTB 

iSUBROUIINE  RETURN 

CDAB 

E5 

PUSH 

H 

CDAC 

DBFF 

STARTC 

IN 

OFFH 

;REAO  SENSE  SWITCHES 

CDAE 

FE«D 

CPI 

77 

iPREVENT  TRACK  OVER-DRIVE 

CDBO 

D2C8CD 

JNC 

ERRA 

CDB3 

CD72CC 

SEEKA: 

CALL 

SEEK 

;MOVE  HEAD  TO  TRACK 

CDB6 

06FF 

MVI 

B.OFFH 

;TEST  PATTERN 

CDBe 

3EFA 

MVI 

A.OFRH 

;WRITE  TRK  COMMAND 

CDBA 

D3F8 

OUT 

DCOM 

CDBC 

DBFC 

HRTLP: 

IN 

WAIT 

CDBE 

B7 

ORA 

A 

CDBF 

r251CC 

JP 

WDONE 

CK2 

78 

MOV 

A,B 

CDC3 

D3FB 

OUT 

DDATA 

' 

CK8 

C3BCCD 

JMP 

wrtl:- 
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CDC8  06F0 

ERRA; 

MVI 

B.OFOH 

CDCA  78 

ERRLP: 

MOV 

A,B 

CDCB  2F 

CMA 

CDCC  D3FF 

OUT 

OFFH 

CDCE  210000 

LXI 

H.OOOH 

;DELAY  LOOP 

CDDl  110100 

LXI 

D.OIH 

CDDD  19 

ERRLPB 

DAD 

D 

CDD5  D2DIICD 

JNC 

ERRLPB 

CDD8  97 

MOV 

B.A 

CDD9  DBFF 

IN 

OFFH 

:SEE  IF  SWITCHES  FIXED 

CDOB  FE90 

CPI 

77 

CDDD  D2CACD 

JNC 

ERRLP 

CDEO  210000 

DELAY: 

LXI 

H,OH 

CDE3  110100 

LXI 

D,01 

CDE6  19 

DELP: 

DAD 

D 

CDE7  D2E6CD 

JNC 

DELP 

CDEA  210000 

DELAYA 

LXI 

H,OH 

COED  110100 

LXI 

D,01H 

CDFO  19 

DELPA: 

DAD 

D 

C0F1  D2F0CD 

JNC 

DELPA 

CDF9  C3ACCD 

JMP 

STARTC 

CDF7  000A0A9999MSG1B: 

DB 

ODH.OAH.OAH, • 

DISK  TRACK  WRITE  ROUTINE' 

CF12  0D0A9C9F91 

DB 

ODH.OAH, 'LOAE 

SCRATCH  DISK  TYPE  Y  WHEN  READY 

Ci.39  0D0A3F3F00MSC2A: 

t 

DB 

ODH.OAH, •??’ 

0 

!  DISC 

TEST  FULL  TRACK  READ 

;  SELECT  TRACK  IN  SENSE  SWITCHES 

;  PROM  VERSION 

:  BRIAN  DGNLAN 

:  JUNE  79 

CE90 

( 

ORC 

0CE90H 

CE90  C39BCE 

ENTRYD: 

JMP 

STARTD 

CE93  218000 

ENTRYE: 

LXI 

H,080H 

CE96  F9 

SPHL 

:St:  STACK 

CE97  F3 

DI 

CE98  CD52CD 

CALL 

INITA 

jRESET  sio 

CE9B  21C0CE 

STARTD: 

LXI 

H.MSGIE 

CE9E  CD8CCC 

READU: 

CALL 

PMSG 

CE51  3E00 

MVI 

A.OOH 

CE53  320800 

STA 

ERRFLG 

CE86  CDDACA 

CALL 

CONIN 

iREAD  KEYBOARD 

CE59  FE59 

CPI 

•Y' 

CE5B  2139CE 

LXI 

H,HSG2A 

CE5E  C24ECE 

JNZ 

READU 

CE61  CD08CB 

CALL 

HOME 

CE69  67 

STARTE: 

ORA 

A 

;SET  FLAGS 

CE65  C29BCE 

JNZ 

STARTD 

;ERR0R  START  OVER 

CE68  2169CE 

LXI 

H, STARTE 

iSUBROUTINE  RETURN 

CE6B  ES 

PUSH 

H 

CE6C  DBFF 

STARTF: 

IN 

OFFH 

;REAO  SENSE  SWITCHES 

CE6E  FE9D 

CPI 

77 

jPREVENT  TRACK  OVER-DRIVE 

CE70  D285CE 

JNC 

ERRD 

CE73  CD72CC 

SEEKO: 

CALL 

SEEK 

;HOVE  HEAD  TO  TRACK 

CE76  3EE5 

MVI 

A.OESH 

;READ  COMMAND 

CE78  D3F8 

OUT 

DCOM 

CE7A  OBFC 

RDLP  : 

IN 

WAIT 

CE7C  B7 

ORA 

A 

CE7D  F2B4CE 

JP 

RDONE 

CE80  DBFB 

IN 

DDATA 

CE82  C37ACE 

JMP 

RDLP 
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CE85  06F0 

ESRD:  MVI 

B.OFOH 

CE87  78 

ERRLPD:  MOV 

A,  B 

CE88  2F 

CMA 

CE89  D3FF 

OUT 

OFFH 

CE8B  noloo 

LXI 

D.OIH 

CE8E  210000 

LXI 

H,OOOH 

CE91  19 

ERRLPE:  DAD 

D 

CE92  D291CE 

JNC 

ERRLPE 

CE95  97 

MOV 

B,A 

CE96  OBFF 

IN 

OFFH 

C£98  feud 

CPI 

77 

CE9A  D287CE 

JNC 

ERRLPD 

CE9D  210000 

OELAYD:  LXI 

H.O 

CEAO  110100 

LXI 

D.OIH 

CEA3  19 

DELPD:  DAD 

D 

CEA9  D2A3CE 

JNC 

DELPD 

CEA7  210000 

DELATE:  LXI 

H.O 

CEAA  110100 

LXI 

D.OIH 

CEAC  19 

DELPE:  DAD 

D 

CEAE  D2A0CE 

JNC 

DELPE 

CEB1  C36CCE 

JMP 

STARTF 

CEBU  DBFS 

RDONE:  IN 

DSTAT 

CEB6  E69D 

ANI 

9DH 

CEB8  57 

MOV 

D.A 

CEB9  C8 

RZ 

CEBA  21E1CC 

LXI 

H.RDMSG 

CEBD  C37UCB 

JMP 

ERMSG 

CECO  0D0A0AUU119MSC1E:  DB 

ODH.OAH 

tEOA  ODCAilC^f«T 

DB 

ODH.OAH 

: DELAY  LOOP 

:SEE  IF  SWITCHES  FIXED 


OAH.'DISK  TRACK  READ  ROUTINE’ 

•LOAD  SCRATCH  DISK  TYPE  Y  WHEN  READY 
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DOOO 


ORG  ODOOOH 
UN  I  BUS  PORI  TEST 
AND  UaiBUS  COMM.  TEST  COMBINED 
AND  SNAP-SHOT 
PROM  VERSION 


DOOO 

218000 

ENTRY!: 

LXI 

H,080H 

D003 

F9 

SPHL 

DOON 

2109D0 

ENTRY; 

LXI 

H, ENTRY 

0007 

E5 

PUSH 

H 

D008 

F3 

DI 

D009 

CDDA02 

CALL 

INITA 

DOOC 

218900 

LXI 

H.MSGI 

DOOP 

CD50D2 

CALL 

PMSG 

;BEGINING  OF 

TEST 

D012 

3E01 

MVI 

A.OIH 

Dom 

OE  10 

MVI 

C,  10H 

D016 

0310 

P0RT10; 

OUT 

10H 

D018 

97 

MOV 

B.A 

D019 

DB10 

IN 

10H 

D01B 

B8 

CMP 

B 

D01C 

C95PD0 

CNZ 

ERR 

DOIP 

07 

RLC 

D020 

D216D0 

JNC 

PORT10 

D023 

3E01 

* 

MVI 

A.OIH 

DOES 

0E11 

MVI 

C,  11H 

D027 

0311 

FORTH  : 

OUT 

11H 

0029 

97 

MOV 

B.A 

D02A 

OB  11 

IN 

11H 

D02C 

B8 

CMP 

B 

D02D 

C95P00 

CNZ 

ERR 

0030 

07 

RLC 

0031 

D227D0 

y 

JNC 

P0RT11 

D03« 

3E01 

1 

MVI 

A.OIH 

0036 

0E12 

MVI 

C.12H 

0038 

0312 

P0RT12: 

OUT 

12H 

D03A 

97 

MOV 

B.A 

D03S 

OB  12 

IN 

12H 

D03D 

B8 

CMP 

B 

L03E 

C95FD0 

CNZ 

ERR 

Dom 

07 

RLC 

D0«2 

D238DO 

JNC 

P0RT12 

0095 

3E01 

1 

MVI 

A.OIH 

0097 

0E13 

MVI 

C.13H 

0099 

0313 

P0RT13: 

OUT 

13H 

D09B 

97 

MOV 

B.A 

D09C 

DB13 

IN 

13H 

D09E 

B8 

CMP 

B 

D09P 

C95FD0 

CNZ 

ERR 

D052 

07 

RLC 

0053 

029900 

f 

f 

JNC 

P0RI13 

D056 

210500 

f 

« 

LXI 

H.MSG9 

0059 

C05002 

CALL 

PMSG 

D05C 

C300F0 

JHP 

RENT 

ISET  STACK  POINTER 


;RESET  10 
;OPENING  MESSAGE 


;PORT  UNDER  TEST 

:SAVE  TEST  PATTERN 
;READ  BUSS 
;COMPARE 

;CALL  IP  IN  ERROR 

;TEST  POR  A  COMPLETE  CICLE 


jPORT  11 

ISAVE  PATTERN 
iREAD  BUSS 
:C  OMPARE 
ICALL  IP  ERROR 


;P0RT12 

;SAVE  TEST  PATERN 


;PINISHED  MESSAGE 
JRETURN  10  MONITOR 
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ERR: 


;3AVE  ERROR  FAiTERN 
;SAVE  TEST  PAriERN 


005F  C5 
D060  F5 
0061  51 
D062  219800 
0065  CD50D2 
DC68  CD7BD2 
D06B  21AED0 
D06E  CD50D2 
0071  78 
0072  CD5BD2 
0075  21C1D0 
0078  CD50D2 
OC7B  FI 
DC7C  C05BD2 
D07F  Cl 
0080  78 
0081  37 
0082  3F 
0083  C9 


OOBA  OAOAOD55AEMSC1  OB  OAH , OAH , ODH, • UNIBUS  PORT  TEST',0 

0098  0A0A00A552MSG2;  OB  OAH, OAH , OOH ,* ERROR  PORT  NO.  '  ,0 

OOAE  0A005AA553MSG0;  DB  OAH , OOH TEST  PATTERN  ',0 

D0C1  0A00A1 A35AHSG3  DB  OAH , ODH ACTUAL  PATTERN  >,0 

0005  OAOAODU5AEMSGA  DB  OAH , OAH , ODH ,• END  OF  TEST  ',0 

food  r  RENT  EOU  OFOOOH  ;MONITOR  ENTRY 


UNIBUS 

COMMUNICATION  TEST 

0100 

ORG 

001 OOH 

0100 

218000 

NTRY2: 

LXI 

H,080H 

0103 

F9 

SPHL 

;SET 

STACK 

010A 

CDDAD2 

CALL 

INITA 

0107 

210701 

NIRY3: 

LXI 

H,EN7RY3 

D10A 

E5 

PUSH 

H 

D10B 

F3 

01 

Dice 

216001 

LXI 

H,MSG5 

jOPENNING  MEESSAGE 

01  OF 

CD50D2 

CALL 

PMSG 

0112 

CDA2D2 

CALL 

EBIN 

jGET  HEX  CHAR 

0115 

05 

PUSH 

0 

;SAVE  ADDRESS 

0116 

219601 

Lx: 

H,MSG6 

; REQUEST  MODE 

0119 

CD50D2 

CALL 

PMSG 

one 

C02202 

IRYGN: 

CALL 

CONIN 

D11F 

FEU9 

CPI 

'I  ' 

0121 

CA3E01 

JZ 

PUTIN 

;JUMP  IF  INPUT  MAODE 

D12A 

FE03 

CPI 

03H 

;TEST  IF  CONTROL  C 

0126 

CAOOFO 

JZ 

RENT 

;RETURN  TO  MONITOR 

0129 

FEAF 

CPI 

•O' 

012B 

C257D1 

JNZ 

QUEST 

OUTPUT 

MODE 

012E 

21C701 

■UTOUT: 

LXI 

H.MSGII 

;OUTPUT  MESSAGE 

0131 

C050D2 

CALL 

PMSG 

D13A 

C0A202 

CALL 

BBIN 

jGET  DIGITS  TO  OUTPUT 

0137 

Cl 

POP 

B 

.■RESTORE  ADDRESS  TO  REG  8  A 

0138 

CD08D3 

CALL 

DATAO 

;UNIBUSS  DRIVER 

D13B 

C3AED1 

JMP 

DONE 

D13E 

21F101 

>UTIM: 

LXI 

H,MSG9 

: INPUT  MESAGE 

OIAI 

C050D2 

CALL 

PMSG 

DIAA 

Cl 

POP 

B 

;RESTORE  ADDRESS  TO  B  4  C 

0105 

C0FED2 

CALL 

DATA  I 

:UNIBUS  INPUT  ROUTINE 

D1A8 

CD9002 

CALL 

BINB 

;PRINT  DATA  FROM  BUSS 

D1AB 

C3AED1 

P 

JMP 

DONE 

DINE 

210502 

DONE: 

LXI 

H.MSGIO 

0151 

CD50D2 

CALL 

PMSG 

•.PRINT  END  OF  TEST 

D15<t 

C  30701 

JMP 

ENTRY3 
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D157 

21C2D1  QUEST: 

LXI 

H , HSG7 

D15A 

CD50D2 

call 

PHSG 

•  '>'> 

»  •  • 

D15D 

C31CD1 

JMP 

TRYGN 

D160 

OAOAODSSHEHSGt: 

OB 

OAH.OAH, 

ODH, • JMIBUS 

COMMUNICATION  TEST' 

D17C 

0A0D45«E5‘t 

OB 

OAH.ODH, 

•ENTER 

UNIBUS  ADDRESS  ',0 

0196 

0A0DA9UE5OMSG6; 

OB 

OAH.ODH, 

•INPUT 

(1). 

OUTPUT  tO>,  EXIT  (CONTROL 

D1C2 

0A0D203F00MSG7: 

OB 

OAH.ODH, 

•  ?•  ,0 

D1C7 

OAODASUESAMSGII: 

OB 

OAH.ODH, 

•ENTER 

DATA 

TO  OUTPUT  IN  4  HEX  DIGITS 

DlFl 

OA0D20U441MSG9: 

OB 

OAH.ODH, 

’  DATA 

FROM 

BUS  ',0 

0205 

0A0D545241MSG10 

OB 

OAH.ODH, 

•TRANSFER  COMPLETE’, 0 

;  diagnostic  input  output  routines 
;  for  brian  donlan  26  feb  79 


0003 

CSTAT 

EQU 

3 

;CONSOLE  STATUS  PORT. 

0003 

= 

CCOM 

EQU 

3 

:CONSOLE  COMMAND  PORT. 

0002 

s 

CDATA 

EQU 

2 

jCONSOLE  DATA  PORT. 

0002 

: 

CKBR 

EQU 

00000010B 

jKETBOARD  READY  BIT. 

0001 

CPTR 

EQU 

00000001 B 

jPRINT  READY  BIT. 

0001 

= 

CNULL 

ECU 

1 

: CONSOLE  NULL  COUNT. 

;  CHECK 

f 

CONSOLE  INPUT  STATUS. 

D219 

DB03 

CONST; 

IN 

CSTAT 

•.READ  CONSOLE  STATUS. 

D21B 

E602 

ANI 

CKBR 

;LOOK  AT  KB  READY  BIT. 

0210 

3E00 

MVI 

A,0 

;SET  A=0  FOR  RETURN. 

D21F 

C8 

RZ 

:NOT  READY  WHEN  ZERO. 

D220 

2F 

CMA 

JIF  READY  AsFF. 

0221 

C9 

RET 

IRETURN  FROM  CONST. 

;  REAO 

A  CHARACTER  FROM 

CONSOLE. 

D222 

DB03 

CONIN: 

IN 

CSTAT 

jREAD  CONSOLE  STATUS 

D22U 

E602 

AMI 

CKBR 

•,IF  NOT  READY, 

D226 

CA22D2 

JZ 

CONIN 

: READY  WHEN  HIGH. 

D229 

OB  02 

IN 

CDATA 

•.READ  A  CHARACTER. 

D22B 

D302 

OUT 

CDATA 

D22D 

E67F 

ANI 

7FH 

:MAKE  HOST  SIC.  BIT  =  0. 

D22F 

C9 

RET 

•  WRITE 

A  CHARACTER  TO 

THE  CONSOLE  DEVICE. 

D230 

3E0D 

CONOT: 

MVI 

A,  ODH 

:IF  IT'S  A  CR, 

D232 

B9 

CMP 

C 

:IHEN  HOP  OUT 

D233 

CA41D2 

JZ 

CONUL 

;T0  NULL  ROUTINE. 

D236 

DB03 

C0N0T1: 

IN 

CSTAT 

:READ  CONSOLE  STATUS. 

D238 

E601 

ANI 

CPTR 

;IF  HOT  READY, 

D23A 

CA36D2 

JZ 

CONOT 1 

;READY  WHEN  HIGH. 

D23D 

79 

MOV 

A.C 

jCET  CHARACTER. 

D23E 

0302 

OUT 

CDATA 

JPRINT  IT. 

D2«0 

C9 

RET 

JRETURN. 

D241 

C5 

CONUL: 

PUSH 

B 

JSAVE  BtC. 

D242 

0601 

MVI 

B, CNULL 

:GET  NULL  COUNT. 

024  4 

C036D2 

C0NUL1; 

CALL 

CONOT 1 

;PRIHT  CR. 

D247 

OEOO 

MVI 

C.O 

;GET  NULL  CHAR. 

0249 

05 

OCR 

B 

[DECREMENT  COUNTER. 

D24A 

C24402 

JNZ 

CONUL 1 

;D0  NEXT  NULL. 

D24D 

Cl 

POP 

B 

[RESTORE  BAC. 

D24E 

79 

MOV 

A.C 

[RESTORE  A. 

D24F 

C9 

RET 

[RETURN. 
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D250 

D251 

D252 

D253 

D25't 

D257 

D258 

7E 

B7 

C8 

MF 

CD3002 

23 

C350D2 

1  f  A  A  > 

PRIHT  MESSAGE  a 
MESSAGE  ADDRESS 

JNIIL  ZERO 
>  REG  H  A  L 

JGEI  CHAR 
-.IS  IT  A  ZERO 

lOTHERWISE  PRINT 

jINC  ADDRESSS 

1  t  t  I  1 

PMSG: 

t  1  1  1  t  t  t  > 

MOV 

ORA 

RZ 

MOV 

CALL 

INX 

JHP 

I  t  1  t  f  t  » 

A,M 

A 

C,A 

CONOT 

H 

PMSG 

PRiiir  8  BIT  WORD  IN  BINARY  FORMA! 

INPUT: 

DATA  IN  REG  A 

D25B 

117 

3ITS: 

MOV 

B.A 

;  DATA 

D25C 

3E80 

MVI 

A,80H 

;  MASK 

D25E 

OE30 

OVER: 

MVI 

C,30H 

D260 

5F 

MOV 

E,A 

:  STORE  MASK 

D261 

AO 

ANA 

B 

;  AND  WITH  MASK 

D262 

CA67D2 

JZ 

PRNT 

:  JUMP  IF  ZERO 

D265 

0E31 

MVI 

C,31H 

D267 

C030D2 

PRMT: 

CALL 

CONOT 

D26A 

AO 

ANA 

B 

;  ZERO  CARRY 

026B 

7B 

MOV 

A,E 

;  LOAD  MASK 

D26C 

IF 

RAR 

D26D 

025E02 

JNC 

OVER 

D270 

C9 

RET 

0271 

0E20 

BLNK; 

MVI 

C,20H 

;PRINT  BLANKS,  t  IN  RE 

0273 

C03602 

LP17: 

CALL 

CONOT 1 

0276 

15 

OCR 

0 

0277 

C27302 

JNZ 

LP17 

027A 

C9 

RET 

f  t  *  1  t 

f  f  1  f  f  r  t  t 

OUTPUTS 

2  HEX  DIGITS  IN  ASCCII 

FROM  REG  0 

027B 

7A 

*  >  )  1  t 

3INHA: 

MOV 

A,D 

D27C 

IF 

RAR 

0270 

IF 

RAR 

D27E 

IF 

RAR 

027F 

IF 

RAR 

0280 

C09802 

CALL 

BIN1 

0283 

4F 

MOV 

C,A 

028U 

C03002 

CALL 

CONOT 

0287 

7A 

MOV 

A.D 

0288 

C09802 

CALL 

BIN1 

028B 

HF 

MOV 

C,A 

023C 

CD30D2 

CALL 

CONOT 

028F 

C9 

RET 

OUTPUTS  FOUR  HEX  Diciis  IN  ASCII 

ENTER  WITH  DATA  IN  NEC  PAIR  E  AND  0 

0290 

CD7B02 

'  t 

IINB: 

CALL 

»  R  B  » 

BINHA 

0293 

53 

MOV 

D.E 

0299 

C07B02 

CALL 

BINHA 

0297 

C9 

RET 
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CONVERTS 
INPUT:  M 
OUTPUT: 

HEX  TO  ASCII 

BITS  HEX  REG  A 

8  BIT  ASSCIl  REG  A 

0298 

E60F 

i  t 

3INI:  ANI 

OFH 

D29A 

C630 

ADI 

30H 

D29C 

FE3A 

CPI 

3AH 

D29E 

08 

RC 

D29F 

C607 

AOI 

07H 

D2A1 

C9 

RET 

INPUTS  « 
RETURN; 

DIG  ITS  FROM  CONSOLE 

N  HEX  DIGITS  IN  REG  E-D 

D2A2 

CD22D2 

t 

3BIN:  CALE 

CON  IN 

02A5 

CDD1D2 

CALL 

AHS1 

D2A8 

17 

RAL 

02A9 

17 

RAL 

D2AA 

17 

RAL 

D2AB 

17 

RAL 

02AC 

E6F0 

ANI 

OF  OH 

D2AE 

57 

MOV 

D.A 

D2AF 

CD22D2 

CALL 

CONIN 

D2B2 

CDD1D2 

CALL 

AHS1 

D2B5 

E60F 

ANI 

OFH 

02B7 

B2 

ORA 

D 

02B8 

57 

HOV 

0,A 

02B9 

CD22D2 

CALL 

CONIN 

02BC 

CD01D2 

CALL 

AHS1 

D2BF 

17 

RAL 

02C0 

17 

RAL 

D2C1 

17 

RAL 

D2C2 

17 

RAL 

D2C3 

E6F0 

ANI 

OF  OH 

D2C5 

5F 

MOV 

E.A 

D2C6 

CD22D2 

CALL 

CONIN 

D2C9 

CDD1D2 

CALL 

AHS1 

D2CC 

E60F 

ANI 

OFH 

D2CE 

B3 

ORA 

E 

D2CF 

5F 

MOV 

E.A 

D200 

C9 

RET 

CONVERT  ASCII  TO  HEX 
INPUT;  8  BIT  ASCII  REG  A 
OUTPUT:  A  BIT  HEX  REG  A 


D2D1  00 

IHS1:  NOP 

D2D2  D630 

SUI 

D2D4  FEOA 

CPI 

D2D6  08 

RC 

D207  0607 

SUI 

0209  C9 

RET 
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INiriATE  SIO  PORTS 


D3DA 

3EAA 

NITA: 

tivi 

A.OAAH 

:GET  DUMMY  MODE  WORD 

D2DC 

0303 

OUT 

CSTAT 

•.OUTPUT  IT 

D2DE 

3E»0 

MVI 

A,40H 

:GET  RESET  BIT 

D2E0 

0303 

OUT 

CSTAT 

-.RESET  SIO  BOARD 

D2E2 

3ECE 

HVI 

A.OCEH 

:GET  REAL  MODE  WORD 

D2EU 

D303 

OUT 

CSIAT 

;SET  THE  MODE  FOR  REAL 

D2E6 

3E37 

MVI 

A,37H 

;GEI  THE  COMMAND 

D2E8 

0303 

OUT 

CSTAT 

JOUTPUT  IT 

02EA 

C9 

RET 

02EB 

OEOD 

:rlf: 

MVI 

C,13 

;CR 

02ED 

CD30D2 

CALL 

CONOI 

D2F0 

OEOA 

LF: 

MVI 

C,  10 

:LF 

D2F2 

CD36D2 

CALL 

C0N0T1 

02F5 

0E7F 

MVI 

C,7FH 

D2F7 

C03602 

CALL 

COSOT  1 

D2FA 

CD30D2 

CALL 

COSOT 

D2FD 

C9 

RET 

D2FE 

C091D3 

: 

3ATAI: 

CALL 

GETS  US 

0301 

CD1203 

CALL 

OATI 

O3OA 

97 

SUB 

A 

0305 

0315 

OUT 

15H 

0307 

C9 

RET 

0308 

CO9ID3 

OATAO: 

CALL 

OETBUS 

030B 

CO51O3 

CALL 

OATO 

030E 

97 

SUB 

A 

030F 

031s 

OUT 

15H 

0311 

C9 

BET 

ROUTINE  TO  INPUT  A  16  BIT 

WORD  FROM  UNIBUS 

REG  6 

s  A<I6 

Og>,  REG  C  r 

A<08:01> 

DATA  WILL  BE 

CONTAINEO  IN 

REG  0  s  D<15:08>,  REG  C  s  D<07 

0312 

3EFF 

3AII: 

MVI 

A.OFFH 

JSET  LOOP  COUNT 

031* 

328200 

STA 

BIZCHT 

0317 

0B1A 

BIZLP1 

IN 

14H 

ICHECK  FOR  SYS  r  0 

0319 

E60<t 

ANI 

OKH 

;FROM  LAST  TRANSACTION 

03IB 

C2A203 

JNZ 

BBUSY1 

O31E 

78 

MOV 

A.B 

'.OUTPUT  HIGH  ADDRESS 

03IF 

0310 

OUT 

10H 

0321 

79 

MOV 

A,C 

;OUTPUT  LOW  ADDRESS 

0322 

0311 

OUT 

1IH 

0320 

97 

SUB 

A 

lOUTPUT  CliO 

0325 

031« 

OUT 

1«H 

0327 

F601 

OR  I 

01H 

jOUTPUT  MSYN»1 

0329 

D31« 

OUT 

INH 

032B 

3EFF 

smpi 

MVI 

A.OFFH 

;LOOP  COUNT 

0320 

328100 

STA 

SYNC NT 

0330 

OB  14 

OILOOP 

IN 

1«H 

;CHECKS  IF  SSYN*1 

0332 

D3rF 

OUT 

OFFH 

03  39 

E60« 

ANI 

0«H 

0336 

CAC8O3 

JZ 

Nosrw? 
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D339 

DB12 

IN 

12H 

033B 

57 

MOV 

O.A 

D33C 

DB13 

IN 

13H 

033E 

5F 

MOV 

E.A 

D33F 

97 

» 

SUB 

A 

0340 

D314 

OUT 

14H 

D3«2 

D310 

OUT 

10H 

0344 

D311 

OUT 

11H 

D346 

D312 

OUT 

12H 

D348 

D313 

our 

13H 

D34A 

DBFF 

IN 

OFFH 

D34C 

B7 

ORA 

A 

D34D 

C212D3 

JNZ 

DATI 

D350 

C9 

RET 

[ROUTINE  TO  OUTPUT  A  1 

[REG  B 

=  A<16 

09 >.  REG 

[REG  D 

=  D<15 

Od>,  REG 

D351  3EFF 

DA  TO: 

MVI 

A, OFFH 

D353  328200 

STA 

BIZCNT 

D356  DB14 

BIZLP2: 

IN 

14H 

D358  E604 

ANI 

0«H 

D35A  C2B503 

JNZ 

BBUSY2 

D350  78 

* 

MOV 

AfB 

D35E  D310 

OUT 

10H 

D360  79 

MOV 

A.C 

D361  D311 

OUT 

1 1H 

0363  7A 

MOV 

A,  D 

D364  D312 

OUT 

12H 

D366  7B 

MOV 

A,  E 

0367  D313 

OUT 

13H 

0369  3E02 

MVI 

A,02H 

036b  0314 

OUT 

1«H 

0360  3E03 

* 

MVI 

A*03H 

036F  0314 

OUT 

14H 

0371  3EFF 

SYMLP2: 

MVI 

A, OFFH 

0373  328100 

STA 

SYNCNT 

0376  DB14 

DO  LOOP: 

IN 

1MH 

0378  D3FF 

OUT 

OFFH 

D37A  E604 

ANI 

OdH 

D37C  CAF8D3 

JZ 

N0SYN2 

037F  97 

[ 

SUB 

k 

0380  0314 

OUT 

lUH 

0382  0310 

OUT 

10H 

D384  D311 

OUT 

11H 

0386  0312 

OUT 

12H 

D388  D313 

OUT 

t3H 

D38A  DBFF 

IN 

OFFH 

D38C  B7 

ORA 

k 

D38D  C25103 

JNZ 

DA  TO 

0390  C9 

RET 

IINPJT  HIGH  DAI* 
jINPUr  LOW  DATA 

.•CLEARS  MSrW 
;AHD  EVERYTHING 
:PUT  OUT  TO  BUS 


:SET  FLAGS 

;LOOP  IF  SENSE  SWITCH  UP 


I  BIT  WORD  ON  THE  UNIBUS 
C  I  A<08:01> 

E  =  D<07:00> 


:OUTPUT  HIGH  ADDRESS 
jOUTPUT  LOW  ADDRESS 
:OUrPUT  HIGH  DATA 
JOUTPUT  LOW  DATA 
[OUTPUT  C1.1 

[OUTPUT  MSTN*! 

[CHECKS  FOR  SSYN 
[TO  GET  ASSERTED 

[CLEARS  MSTN  AND  Cl 

[CLEARS  EVERYTHING 
[OUTPUT  TO  THE  BUS 

[READ  SENSE  SWITCH 
[SET  FLAGS 
[LOOP  IF  UP 


0391  3EFF 
D393  328000 
D396  3E01 
D398  D315 
D39A  OBIS 
D39C  E601 
039E  CAOCOA 
03A1  C9 


CETBUS:  MVI 
STA 
MVI 
OUT 

LOOP:  IN 

AMI 

JZ 

RET 


A.OFFH 

CETCNT 

A.OIH 

I5H 

15H 

01H 

NOGET 
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ON-LISE  UHIBJS  DIAGNOSTICS 
BY  BRIAN  DONLAN  24  APR  79 


D3A2  3A8200 

BBUSYI:  LDA 

BIZCNT 

DjA5  30 

DCR 

A 

D3A6  328200 

STA 

BIZCNT 

D3A9  C217D3 

JNZ 

BIZLP1 

D3AC  213ED4 

LXI 

H,ERHSG2 

D3AF  CD5002 

CALL 

PMSG 

D3B2  C307D1 

JMP 

ENTRYS 

D3B5  3A8200 

BBUSY2:  LDA 

BIZCNT 

D3B8  3D 

DCR 

A 

D3B9  323200 

STA 

BIZCNT 

D3BC  C256D3 

JNZ 

BIZLP2 

D3BF  213ED4 

LXI 

H, ERMSG2 

D3C2  CD50D2 

CALL 

PMSG 

03C5  C307D1 

JMP 

• 

ENrBY3 

D3CB  3A8100 

• 

N0SYN1:  LDA 

SYNCNT 

D3CB  3D 
D3CC  328100 
03CF  C23O03 
D3D2  DBFF 
D304  E640 
D3D6  C230D3 
0309  50 
D3DA  59 
D3DB  215804 
D3DE  CD50D2 
03E1  CD90D2 
D3E4  216BD4 
D3E7  C050D2 
D3EA  AF 
D3EB  0311 
03ED  0312 
D3EF  0313 
03F1  03111 
D3F3  0310 
03r5  C307D1 


OCR 

SIA 

JNZ 

IN 

ANI 

JHZ 

SYSERR!  MOV 
MOV 
LXI 
CALL 
CAU. 
LXI 
CALL 
XRA 
OUT 

our 

our 

OUT 

OUT 

JMP 


A 

SYNCNT 

DILOOP 

OFFH 

040H 

DILOOP 

D, B 

E. C 

H,ERMSG3 

PMSG 

BINB 

H.ERKSGA 

PMSG 

A 

11H 

12H 

13H 

14H 

10H 

ENTRT3 


:LOQP  COUNT 
;M£W  COUNT 

JJUMP  IF  STILL  COUNT 
jOISPLAT  ERROR  MESSAGE 


.-MOV  ADORESS  FOR  OUTPUT 
lOUTPUT  ADDRESS 
IZERO  A 


D3F8  3A8100 
03FB  30 
D3FC  328100 
D3FF  C27603 
DU02  OBFF 
D404  E640 
0406  C276D3 
0409  C309D3 


NOSTNE:  lDA 
DOR 
STA 
JNZ 
IN 
ANI 
JNZ 
JKP 


SYNCNT 

A 

SYNCNT 

DOLOOP 

OFFH 

040H 

DOLOOP 

SYSERR 


D40C  3A8000 
D40F  3D 
D410  328000 
D413  C29AD3 

D416  211FD4 
D419  CD50D2 
D41C  C307D1 


NOCET:  LDA 
OCR 
STA 
JNZ 
LXI 
CALL 
JMP 


GETCKT 

A 

GETCNT 

LOOP 

H,ERHSG1 

PMSG 

ENTRr3 


0080  .  GETCNT:  EOU 

0081  .  SYNCNT:  EOU 

0082  m  BIZCNT:  EQU 

D41F  ODOD0A2020ERHSC1:  DB 
D»3E  ODODOA2020ERMSC2:  DB 
045B  0D0A202044CRHSG3:  DB 
D46B  204E4F2052ERMSGA:  DB 


080H 

0B1H 

082H 

ODH.ODH.OAH,*  IMSAI  CAN  NOT  GET  BUSS 
ODH.ODH.OAH,'  ERROR  BUSS  BUST 
ODH.OAH,*  DEVICE  NO.  *0 
•  NO  RESPONSE  ’ ,0 
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D500 

D500  2100F0 
D503  E5 
D50U  F3 
0505  CDDAD2 


JNI3US  SNAP  SHOT  POuriNE 


ENIR- 


ORG 

LXI 

PJSH 

01 

CALL 


00500H 
H.OFOOQH 
H 

inita 


;RESEr  I/O 


0508  216BD5 
D50B  CD50D2 
D50E  DBIO 
0510  57 
0511  DBII 
0513  5F 
05111  CD90D2 

0517  1608 
0519  CD71D2 
D51C  DB12 
051 E  57 
051F  DB13 
0521  5F 
0522  C090D2 
0525  1608 
0527  CD7102 

D52A  OBIU 
D52C  E60A 
052E  CA36D5 
0531  0E31 
0533  C33805 
0536  0E30 
0538  C030D2 
0538  1609 
0530  CD71D2 

0510  DB15 
05112  E601 
05*11  CAIICD5 
05*7  0E31 
05*9  C3*E05 
05«C  0E30 
05*E  CD30D2 
0551  160b 
0553  CD71D2 

0556  DS1* 

0558  E600 
D55A  CA6205 
0550  0E31 
D55F  C36«D5 
0562  0E30 
056*  CD30D2 
0567  C9 
0568  C36805 


:SUBRQUTINE 

entry  point 

ENTRY5:  LXI 

H,MSG12 

CALL 

PMSG 

IN 

10H 

NOV 

D.A 

IN 

11H 

MOV 

E.A 

CALL 

BINS 

MVI 

D,08H 

CALL 

BLNK 

IN 

12H 

MOV 

D.A 

IN 

13H 

MOV 

E.A 

CALL 

BINS 

MVI 

D.OBH 

CALL 

BLNK 

IN 

1*H 

ANI 

0*H 

JZ 

NOSIS 

MVI 

C.  'I  « 

JMP 

OUTSIS 

NOSIS:  MVI 

C.  *  0  * 

OUTSIS;  CALL 

coNor 

MVI 

D.09H 

CALL 

BLNK 

IN 

15H 

ANI 

01H 

JZ 

NOBUS 

MVI 

C,'1  • 

JMP 

OUTBUS 

NOBUS;  MVI 

C  *  0  * 

OUTBUS:  CALL 

COROT 

MVI 

O.OBH 

CALL 

BLNK 

IN 

1*H 

ANI 

OOH 

JZ 

NOMSYN 

MVI 

C, '  1  ' 

JMP 

OUTMSN 

NOMSYN:  MVI 

C,  '0 ' 

OUTMSN:  CALL 

CQMOT 

nti 

FINIS:  JMP 

FINIS 

;HIGH  ADORESS 
;SAVE  IN  D 
;LOW  ADDRESS 

;PRINT  UNIBUS  ADDRESS 

;SPACE  OVER 

;HIGH  data 

:LOW  DATA  BITS 

.•PRINT  UNIBUS  DATA  BITS 
-.SPACE  OVER 


ISTATUS  PORT 
•.find  SLAVE  SYH 


:PRINT  SLAVE  SYN 
JSPACE  OVER 


JSIATUS  PORT 
.•BUS  GRANT 


;PRINT  BUS  GRANT 
JSPACE  OVER 


PRINT  HSYN 


D56B  OAO*OD55*EMS012^ 
0580  0A00*1**«* 

D5B*  0A0D202000 


OB 

OB 

OB 


-UNIBUS  SNAP-SHO 
OAH.OOH. 'ADDRESS  DATA 

OAH.OOH,'  .,0 


SSTN 


GRANT 


HSrS' 
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8K  MINI  MEMORY  TEST 


BRIAN  DONLAN 
PROM  VERSION 


D600 

ORG 

0D600H 

0600 

F3 

ENTER: 

01 

D601 

3EFE 

MVI 

A.OFEH 

0603 

D3FF 

OUT 

OFFH 

D605 

210000 

LXI 

H.OOOH 

0608 

AF 

LP2: 

XRA 

A 

0609 

77 

LP1: 

MOV 

H.  A 

D60A 

46 

MOV 

B.H 

D60B 

B8 

CMP 

B 

D60C 

C26DD6 

JNZ 

ERR1 

D60F 

3C 

INR 

A 

D610 

C209D6 

JNZ 

LP1 

D613 

23 

INX 

H 

D61A 

1100E0 

LXI 

D.OEOOOH 

0617 

EB 

XCHG 

0618 

19 

DAD 

D 

0619 

EB 

XCHG 

061A 

020806 

JNC 

LP2 

!  PHASE 

II 

0610 

3EFD 

MVI 

A.  OF  OH 

D61F 

D3FF 

OUT 

OFFH 

D621 

210000 

LXI 

H.OOOH 

0624 

74 

LP3; 

MOV 

H.H 

0625 

23 

INX 

H 

0626 

1100EO 

LXI 

D.OEOOOH 

0629 

EB 

XCHG 

D62A 

19 

DAD 

D 

D62B 

EB 

XCHG 

D62C 

0224D6 

JNC 

LP3 

t 

READ 

MEMORY 

D62F 

21 0000 

LXI 

H . OOOH 

0632 

7E 

LP4: 

MOV 

A.M 

0633 

94 

SUB 

H 

0634 

C293D6 

JNZ 

ERR2 

0637 

23 

INX 

H 

0638 

1100EO 

LXI 

D.OEOOOH 

063B 

EB 

XCHG 

D63C 

19 

DAD 

D 

0630 

EB 

XCHG 

D63E 

023206 

JNC 

LP4 

!  PHASE 

III 

iOUTPUT  PHASE  I  LITES 
;StART  ADDRESS 
:ZERO  ACC 

:SrORE  TEST  PATTERN  IN  HEM 
;READ  BACK  TO  B 
:COMPAfiE  FOR  OK 
:J'JMP  IF  ERROR 
jNEW  TEST  PATTERN 


;STOP  ADDRESS 
;ADD  TWO'S  COMPLIMENT 


;PHASE  II  LITES 


;LOW  ADDRESS  TO  HEM 
;STOP  ADDRESS 


;READ  MEHORT 
:COMPARE 
:JUHP  IF  ERROR 


D6fl1  3EFC 
D6U3  D3FF 
DBAS  210000 
D6«8  75 
D649  23 
D64A  1100E0 
D6«D  EB 
D64E  19 
D64F  EB 
D650  D248D6 

0653  210000 
0656  7E 
0657  95 
0658  C29FD6 
065B  23 
065C  1100E0 
065F  EB 
0660  19 
0661  EB 
0662  025606 


MVI 

OUT 

LXI 

LP5:  MOV 

INX 
LXI 
XCHG 
OAO 
XCHG 
JNC 

;REAO  HEM 

LXI 

LF6:  MOV 

SUB 
JNZ 
INX 
LXI 
XCHG 
OAO 
XCHG 
JNC 


A.OFCH 

OFFH 

H.OOOH 

M,L 

H 

O.OEOOOH 

0 

LP5 

H.OOOH 

A.M 

L 

ERR  3 

H 

O.OEOOOH 

0 

LP6 


JPHASE  THREE  LITES 
JSTORE  HIGH  ADDRESS  IN  ALL 


;REA0  MEHORT 
;C0NPARE 


13^ 


MEM 


0665  3EFF 
0667  2100D6 
066A  C3ABD6 


D66D  EB 
066E  UF 
066F  217706 
D672  3EF1 
06711  C3ABD6 


'  7A 

I  217ED6 
I  C3ABD6 
:  7B 
218506 
C3ABD6 
79 

218CD6 

C3ABD6 

78 

210006 

C3AB06 


ALL  PHASE  COMPLETE 
MVI  A.OFFH 

LKI  H, ENTER 

JMP  LITES 


iPHASE  I  ERROR 
£R" I :  XCHG 

MOV 
LXI 
MVI 
JMP 


C.A 

H, COMERS 

A.OFIH 

LITES 


: COMMON  ERROR 

COMERS:  MOV 
LXI 
JMP 

LOAOO;  MOV 
LXI 
JMP 

TPAT:  MOV 

LXI 
JMP 

ACrOAT:  MOV 


OJTPUr  ROUTINE 
A,  0 

H, LOAOO 

LITES 

A.E 

H.TPAT 

LITES 

A.C 

H.ACTOAT 

LITES 

A,B 

H, enter 

LITES 


iCO  TO  LITES  PROG 


;SAVE  BAO  OATA 
IRETURN 

;PHASE  I  ERROR  LITES 


;HIGH  ADDRESS 
IRETURN 

:LOW  adores  TO  LITES 
iRETURN 

:TEST  PATTERN  TO  LITES 
IRETURN 

IACTUAL  data  to  LITES 
ISTART  OVER 


0693  EB 
0690  82 
0695  <17 
0696  «A 
0697  3EF2 
0699  217706 
D69C  C3AB06 


069F  EB 
D6A0  83 
D6A1  H7 
06A2  RB 
D6A3  3EF3 
06A5  217706 
06AB  C3ABD6 


i  2F 
:  D3FF 
!  F9 
■  OBFF 
I  67 
!  OBFF 
1  AC 

'  CAB206 
t  2118FC 
23 

AF 

BR 

C2BBD6 

210000 

39 

E9 


:  PHASE  II  ERROR 
EBR2:  XCHG 

ADO 
MOV 
MOV 
MVI 

LXI  I 

JMP  I 


0 

B, A 

C. O 
A,0F2H 
H.COMESR 
LITES 


:SAVE  BAD  ADDRESS 


‘.PHASE  II  ERROR  TO  LITES 
iRETURN 


I  PHASE  III  ERROR 
ERR3;  XCHG 


ADO 

E 

MOV 

B,A 

MOV 

C.E 

A,0F3H 

MVI 

LXI 

H, COMER R 

1 

JMP 

lues 

ILITES 

routine 

ENTER 

LITES: 

CM  A 

OUT 

SPHL 

OFFH 

IN 

OFFH 

LP7: 

MOV 

H.A 

IN 

OFFH 

XRA 

H 

JZ 

LPT 

LP8: 

LXI 

H,0FC18H 

INX 

H 

XRA 

A 

ORA 

H 

JNZ 

LP8 

LXI 

H,0 

DAD 

SP 

iSAVE  BAO  ADDRESS 


iPHASE  n  ERRO  TO  LITES 
iRETURN 


...........  nfcv  nau 

data  FOR  LUES  IN  A 

lOOTPOT  LITES 
iSAVE  RETURN  IN  SP 

‘.read  sense  snitches 

ISAVE  IN  H 

IREAD  switches 

iSEE  IF  THET  CHANGED 


lOELAT  LOOP 


iXERO  H 

;REru»r’^“'*’' 
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21IK  MINI-MEMORY  TEST 


PROM 

VERSION 

BRIAN 

DCNLAN 

D700 

ORG 

0D700H 

D700 

F3 

ENTER2: 

01 

D701 

3£r  E 

MVI 

A,  OF EH 

D703 

03FF 

OJT 

OFFH 

jOUTPUT  PHASE  I  LITES 

0705 

210000 

LXI 

H.OOOH 

-.START  ADDRESS 

0708 

AF 

LP22: 

XRA 

A 

JZERO  ACC 

JSTORE  TEST  PATTERN  IN 

0709 

77 

LP12: 

MOV 

M.A 

MEM 

070A 

*16 

MOV 

B.H 

;READ  BACK  TO  B 

D70B 

B8 

CMP 

B 

JCOMPARE  FOR  OK 

D70C 

C26DD7 

JMZ 

ERR  12 

;JUMP  IF  ERROR 

D70F 

3C 

INR 

A 

:NEW  TEST  pattern 

0710 

C20907 

JNZ 

LP12 

0713 

23 

INX 

H 

071*1 

1 100A0 

LXI 

D.OAOOOH 

;STOP  ADDRESS 

0717 

EB 

XCHG 

0718 

19 

OAO 

0 

;ADD  TWO’S  COMPLIMENT 

0719 

EB 

XCHG 

D71A 

020807 

JNC 

LP22 

PHASE 

II 

0710 

3EF0 

MVI 

A,  OF  OH 

;PHASE  11  LITES 

071 F 

03FF 

OJT 

OFFH 

0721 

210000 

LXI 

H.OOOH 

072** 

7** 

LP32: 

MOV 

M,H 

:LOW  ADDRESS  TO  MEM 

0725 

23 

INX 

H 

0726 

1100A0 

LXI 

D.OAOOOH 

-.STOP  ADDRESS 

0729 

EB 

XCHG 

D72A 

19 

DAO 

0 

D72B 

EB 

XCHG 

D72C 

022*107 

JNC 

LP32 

READ  MEMORY 

D72F 

210000 

LXI 

H ,  OOOH 

0732 

7E 

LP*i2; 

MOV 

A.M 

;READ  MEMORY 

0733 

9*1 

SUB 

H 

: COM PA RE 

073** 

C29307 

JNZ 

ERR  22 

:JUMP  IF  ERROR 

0737 

23 

I.1X 

H 

0738 

1100AO 

LXI 

D.OAOOOH 

D73B 

EB 

XCHG 

D73C 

19 

DAD 

0 

0730 

EB 

XCHG 

D73E 

023207 

JNC 

LP112 

PHASE 

III 

07*11 

3EFC 

MVI 

A.OFCH 

07*13 

03FF 

OUT 

OFFH 

-.PHASE  THREE  LITES 

D7**5 

210000 

LXI 

H.OOOH 

071*8 

75 

LP52: 

MOV 

",L 

;STORE  HIGH  ADDRESS  IN 

ALL 

D7«9 

23 

INX 

H 

D7*A 

1100A0 

LXI 

D.OAOOOH 

07*10 

EB 

XCHG 

D7**E 

19 

DAD 

D 

D7**F 

EB 

XCHG 

0750 

02*1807 

JNC 

LP52 

READ  HEM 

0753 

210000 

LXI 

H.OOOH 

0756 

7E 

LP62: 

MOV 

A.M 

;REAO  MEMORY 

0757 

95 

SUB 

L 

;COMPARE 

0758 

029707 

JNZ 

ERR  32 

075B 

23 

INX 

H 

D75C 

llOOiO 

LXI 

D.OAOOOH 

075F 

EB 

XCHG 

0760 

19 

DAD 

D 

0761 

EB 

XCHG 

0762 

025607 

JNC 

LP62 

HEM 


136 


0765  SEFF 
0757  210007 
076A  C3ABD7 


ALL  PHASE  CCHPLETE 
NVI  A.OFFH 

t-XI  H.ENTER2 

JMP  LirES2 


:GO  ro  LITES  PROG 


0760  EB 
D'’6E  «F 
076F  217707 
0772  3EF1 
077A  C3AaD7 


0777  7A 
O-TS  2t7E07 
0778  C3AB07 

077£  79 

077F  213507 
0782  C3ABD7 
0785  79 
0786  218CD7 
0739  C3ABD7 
D78C  78 
07SD  210007 
0790  C3ABD7 


;PHASE  I  ERROR 
tRR12;  XCHG 
MOV 
LXI 
MVI 
JHP 


■.COMMON  ERROR 

C0MER2;  MOV 
LXI 
JH  P 

L0AD02:  MOV 
LXI 
JMP 

IPAIP:  MOV 
LXI 
JMP 

ACrDA2;  MOV 
LXI 
JMP 


C.A 

H,C0HER2 
A,  OFIH 
LirES2 


OUIPJI  ROOriNE 
A,D 

H.LOAOD2 

LirES2 

K,t 

H,rPAr2 

LIIESa 

A.c 

H,ACTDA2 

LITES2 

A.B 

H,ENrER2 

LirES2 


;SAVE  BAO  DATA 
;R£rjRM 

:PHASE  I  ERROR  LUES 


.-HIGH  AC0RE3S 

.•REURN 

:LOW  ADORES  TO  LITES 
[REIJRK 

UESr  PATTERN  TO  LITES 


•.actual  data  to  LITES 

;STAHr  OVER 


0793  EB 
079«  82 
0795  J7 
0796  VA 
0797  3EF2 
0799  217707 
079C  C3A8D7 


:  PHASE  II  ERROR 
ERR22:  XCHG 
AOO 
MOV 
MOV 
MVI 
LXI 
JMP 


0 

B. A 

C, D 
A,0F2H 
H,C0MER2 
LITESE 


;SAVE  BAD  ADDRESS 


•.PHASE  n  ERROR  TO  LITES 
;  return 


079F  EB 
07A0  83 
D7A1  R7 
D7A2  RB 
07A3  3EF3 
D7A5  217707 
D7A8  C3ABD7 


phase  III  error 
ERR  32:  XCHG 

ADD  E 

HOV  B,A 

MOV  C,E 

"VI  A,0F3H 

1-AI  H,C0MER2 

JMP  LITESE 


;SAVE 


BAD  ADDRESS 


JPHASE  II  ERRO 
; RE TURN 


TO  LUES 


D7AS  2F 
D7AC  D3FF 
07AE  F9 
07AF  DBFF 
07B1  67 
0782  DBFF 
07BR  AC 
D7B5  CAS2D7 
D7B8  2118FC 
D7BB  23 
D7BC  AF 
D7B0  B« 

D7BE  C2BBD7 
D7C1  210000 
D7C*  39 
D7C5  E9 


LUES  ROUTINE 


UIES2!  CMA 


LP72: 


LP82: 


OUT 

SPHL 

IN 

MOV 

IN 

XRA 

JZ 

LXI 

INX 

XRA 

ORA 

JNZ 

LXI 

OAO 

PCHL 


ENTER  WITH  RET'ORN  I»  REc  HAL 

data  for  lues  IN  A 


OFFH 

OFFH 

H,A 

OFFH 

H 

LP72 

H.OFCISH 

H 

A 

H 

LP82 

H,0 

SP 


;OurPUT  LUES 
:SAVE  RETURN  IN  SP 
.•READ  SENSE  SVUCHES 
;SAVE  IN  H 
.•READ  SWITCHES 
:SEE  IF  THEY  CHANCED 

.•DELAY  LOOP 


.•ZERO  H 

:MOVE  RETURN  BACK  TO  H  A 
; RETURN 


L 


137 


i  8060  MONITOR  VI *0 

i  PROGRAMMER!  C.  E.  OHME 

i  (415>657>8326 


P600 

F630 

F630 

F633 

F636 

F639 


0000 

000A 

F000 


; 

i  SYSTEM  CONFIGURATION  INTERFACE 

SCP  EOU  0F600H 

lOTAB  EQU  SCP 

AOSCS  EOU  SCP^AS 

ADSCR  ECU  SCP+51 

AOlOa  EQU  SCP+54 

ADUST  EOU  SCP+S? 

i  ASCII  CHARACTERS 

CR  EQU  0DH 

LF  EQU  0AH 

ORG  0F000H 

i  EXTERNALLY  REFERENCED  SUBROUTINE 

t  JUI4P  TABLE 


F000  C3-4F0 

F003  C3D6Fa 

F006  C3E0F0 

F009  C301Fa 

F00C  C3E5F0 

F00F  C3EAF0 

F012  C3O3F0 

F015  C3aEFl 

F0i8  C315F1 

F01B  C3B1F1 

F01E  C3lEFi 

Fi2l  0E00  REEINTj 

F023  210003 

F024 

F024  0E01  BEGIN: 

F026  IIFFOO 

F029  C3EAF4 

F02C  EB 

F02O  0615 

F02F  1176F2 

F032  IB  BGIi 

F033  lA 

Fa34  2B 

F035  77 

F036  05 


JMP 

BEGIN 

JMP 

Cl 

JMP 

RI 

JMP 

CO 

JMP 

PO 

JMP 

LO 

JMP 

CSTS 

JMP 

lOCHX 

JMP 

lOSET 

JMP 

MEMCK 

JMP 

STRNG 

MVI 

C*0 

LXI 

H,0 

ORG 

%-2 

MVI 

Z,  1 

LXI 

0,  OFFH 

IMP 

INITA 

XCHG 

MVI 

B,ENDX-EXIT-1 

LXI 

D,ENDX-1 

OCX 

D 

LOAX 

D 

DCX 

H 

MOV 

M#  A 

DCR 

B 

F037 

C232F0 

JNZ 

BGi 

F03A 

F9 

SPHL 

■ 

F03B 

C039F6 

CALL 

ADUST 

F03E 

E5 

PUSH 

H 

F03F 

2600 

HVl 

H,0 

F041 

ES 

PUSH 

H 

F042 

E5 

PUSH 

U 

F043 

E5 

PUSH 

H 

F044 

79 

MOV 

A«C 

F04S 

B7 

ORA 

A 

F046 

CA4EF0 

JZ 

8G2 

F049 

CD36F6 

CALL 

ADIOB 

F04C 

3600 

HVI 

M^  0 

F04E 

2140F7 

BG2t 

LXX 

H,  TITLE 

F05i 

COIEFI 

CALL 

STRNG 

F054 

B7 

ORA 

A 

t 

COMMAND  RETURN  POINT 

F055 

O266F0 

CMNOBt 

JNC 

START 

J 

ERROR 

RETURN 

F058 

C033F6 

LERt 

CALL 

ADSCR 

F05B 

i 1E3FF 

LXl 

D/EXIT-ENDX-7 

F0SE 

19 

DAD 

D 

F0SF 

F9 

SPHL 

F060 

219OF0 

LXI 

H/  ERM 

F063 

COIEFI 

CALL 

STRNG 

; 

INPUT 

AND  EXECUTE  NEXT  COMMAND 

F066 

FB 

START  1 

El 

F067 

C046F1 

CALL 

CRLF 

F06A 

0E2E 

MVI 

C/  ’  .  ’ 

F06C 

COO1F0 

CALL 

CO 

F06F 

CD2FFI 

CALL 

T1 

F072 

0641 

sui 

•A’ 

F074 

FA58F0 

tJM 

LER 

F077 

FE18 

CPI 

•X’-*A*+1 

F079 

F258F0 

jP 

LER 

F07C 

87 

ADD 

A 

F07D 

2155F0 

LXI 

H«CMNDR 

F080 

E5 

PUSH 

H 

F081 

219FF0 

LXI 

H*  TBL 

F084 

1600 

MVI 

D#0 

F086 

5F 

MOV 

E/A 

F087 

19 

DAO 

0 

F088 

7E 

MOV 

A«M 

F039 

23 

INX 

H 

F08A 

66 

MOV 

H#M 

F0dB 

6F 

MOV 

L*A 

F08C 

0E02 

MVI 

C«2 

F03E 

£9 

PCHL 
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FidSF  0D0A4D4F 

VERSi 

OB 

CR>LF, 'MONITOR  VI. OR  80H 

F093  4E49544F 

F097  52205631 

F09a  2Ea0 

F09O  0AAA 

ERMt 

03 

LF^'*'  OR  80H 

• 

S 

COMMAND 

1  JUMP  TABLE 

F39F  77F2 

TBLi 

DV 

ASSIGN 

F0A1  C0F2 

DW 

BIN 

F0A3  A0F3 

DW 

HEXN 

F0A5  1CF3 

OV 

DISP 

F0A7  58F0 

DW 

LER 

F0a9  3CF3 

OV 

FILL 

F0Aa  4CF3 

OW 

GOTO 

F0AD  OOFS 

OV 

HELP 

F0AF  58Fa 

OV 

LER 

Faal  58F0 

DV 

LER 

F0a3  acF3 

OW 

KOPY 

Fas5  C6F3 

DW 

LOAD 

F037  0CF4 

OV 

MOVE 

F0a9  1EF4 

DW 

NULL 

F03S  58F0 

DW 

LER 

Faao  58F0 

DW 

LER 

F0BF  58F0 

DV 

LER 

F0Ci  23F4 

DV 

READ 

F0C3  89F4 

DV 

SUBS 

FaC5  OOFO 

OW 

TEST 

F0C7  58F0 

DV 

LER 

F0C9  58F0 

OV 

LER 

Faca  B1F4 

DW 

WRITE 

F0CD  3DF5 

DV 

X 

• 

9 

UTILITY 

SUBROUTINES 

F0CF  0E20 

BLK: 

MV  I 

C,  •  • 

F0DI  CDEFF0 

CO  t 

CALL 

lOBR 

F0D4  0110 

03 

1^  10H 

FaD6  CDEFF0 

Cl  I 

CALL 

lOBR 

F0O9  0108 

OB 

1>8 

F0Da  CDEFF0 

CSTSi 

CALL 

lOBR 

F0DE  0100 

OB 

1,0 

F0E0  CDEFF0 

R1  : 

CALL 

lOBR 

F0E3  0418 

DB 

4.  18H 

F0E5  CDEFF0 

PO  : 

CALL 

lOSR 

F0E8  0320 

03 

3,20H 

140 

F0EA  CDEFF0  LO I 
F0EO  0328 


CALL 

OB 


lOBR 

2>28U 


F0EF  E3 
F0F0  C5 
F0F1  46 
F0F2  23 
F0F3  4£ 

F0F4  CD36F6 
F0F7  7E 
F0F8  0F 
F0F9  07 
F3FA  07 
F0FB  05 
F0FC  C2F9F0 
F0FF  £606 
F101  81 
F102  4F 
F103  2100F6 
F106  09 
Fi07  7E 
F108  23 
F109  66 
F10A  6F 
F10B  Cl 
ri0C  £3 
F10O  C9 

F10E  £5 
F10F  CD36F6 
FI  12  7£ 

F113  £1 
F114  C9 

FI  15  £5 
F116  F5 
■117  CD36F6 
FllA  71 
FllB  FI 
Flic  £1 
FllO  C9 

Fll£  7E 
FI  IF  E67F 
F121  C8 
F122  4F 
F123  7£ 

F124  B7 
F125  FAO1F0 
F128  COO1F0 
F12a  23 
F12C  C31EF1 


lOBR*  XTHL 
PUSH 
MOV 
INX 
MOV 
CALL 
MOV 
RRC 

ZOBlt  RLC 
RLC 
OCR 
JHZ 
ANl 
ADD 
MOV 
LXl 
OAD 
MOV 
INX 
MOV 
MOV 
POP 
XTHL 
R£T 

lOCHK: 

PUSH 

CALL 

MOV 

POP 

R£T 

lOSETl 

PUSH 

PUSH 

CALL 

MOV 

POP 

POP 

R£T 

STRNGi 

MOV 

ANl 

RZ 

MOV 

MOV 

ORA 

JM 

CALL 

INX 

JMP 


B 

B^M 

H 

C«M 

AOlOB 

A«M 


B 

XOBl 

6 

C 

C,A 

H> IOTAS 
B 

A«M 

H 

H>M 
L#  A 
B 


H 

ADIOB 

A,n 

H 


H 

PSW 

ADIOB 

M«C 

PSW 

H 


A,M 

7FH 

C,A 

A,M 

A 

CO 

CO 

H 

STRNG 


TIJ 


1-12F  CD06F3 
F132  E67F 
F134  C5 
F135  4F 
F136  CDD1F0 
Fi39  79 
F13A  Cl 
F133  C9 

F13C  E60F 
F13E  C690 
F140  27 
FUl  CE40 
Fl/13  27 
F144  4F 
F145  C9 

FU6  0E0O 
FU8  COO1F0 
F14B  0E0A 
FUD  C3D1F0 

F1S0  0£0i 

F152  210000 
FI  55  C02FFI 
F158  47 
F159  CDD0FI 
F15C  DA68FI 
FI5F  29 
Fi60  29 
FUl  29 
F162  29 
FI  63  B5 
F164  6F 
F165  C355F1 
FI  68  £3 
FI 69  ES 
F16A  78 
F16B  CDE5F1 
F16E  D276F1 
F171  0D 
F172  C258Fa 
F175  C9 
F176  C258F0 
FI  79  0D 
F17A  C252F1 
F17D  C9 

F17E  0Eai 
F180  210000 
F183  C358F1 


CALL 

Cl 

ANZ 

7FH 

PUSH 

B 

MOV 

C,A 

CALL 

CO 

MOV 

A,C 

POP 

RET 

B 

CONVt 

AMI 

0FH 

ADI 

OAA 

90H 

ACl 

DAA 

40H 

MOV 

RET 

C^A 

CRLFt 

MVI 

C«CR 

CALL 

CO 

MVI 

C,LF 

JMP 

CO 

EXPRl : 

MVI 

C«1 

EXPR: 

LXI 

H>0000H 

EX0: 

CALL 

TI 

EXl  1 

MOV 

B,A 

CALL 

NIBBL 

JC 

EX2 

DAO 

H 

OAO 

H 

DAO 

H 

OAO 

H 

ORA 

L 

MOV 

L«  A 

JMP 

EX0 

EX2: 

XTHL 

PUSH 

H 

MOV 

A,  3 

CALL 

P2C 

JNC 

EX3 

OCR 

C 

JNZ 

RET 

LER 

EX3: 

JNZ 

LER 

OCR 

C 

JNZ 

RET 

EXPR 

EXFt 

MVI 

C,1 

LXI 

H^0000H 

JMP 

EXl 
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HILOt 


n86  23 

INX 

H 

F187  7C 

MOV 

A^H 

F188  B5 

Fi89  37 

F18A  C8 

ORA 

STC 

RZ 

L 

FI  83  73 

MOV 

A^E 

Fi8C  95 

SUB 

L 

F18D  7A 

MOV 

A«0 

F18E  9C 

F18F  C$ 

LAORt 

SBB 

RET 

H 

F190  7C 

MOV 

A^H 

F191  CD9SFI 

CAUL 

LBYTE 

FI  94  7D 

LBYTE* 

MOV 

A^L 

F195  F5 

F196  0F 

F197  0F 

F198  0F 

F199  0F 

PUSH 

RAC 

RAC 

RRC 

ARC 

PSV 

F19A  CD9EF1 

CALL 

HXO 

Fl9D  FI 

HXOt 

•  POP 

PSV 

F19E  CD3CFI 

CALL 

CONV 

FlAl  C3D1F0 

LEADS! 

JMP 

CO 

F1A4  0604 

LEAD! 

MVI 

B,4 

F1A6  0E00 

MVI 

C^0 

F1A8  CDESF0 

CALL 

PO 

FlAB  05 

OCR 

B 

FiAC  C2A6F1 

JNZ 

LEAD 

FIAF  37 

F1B0  C9 

MEMCKt 

ORA 

RET 

A 

FlBl  E5 

PUSH 

H 

FIB2  D5 

PUSH 

D 

F133  CD33F6 
F1B6  EB 

CALL 

XCHG 

ADSCR 

F1B7  210000 

LXl 

H,0 

FIBA  24 

MEM0t 

INR 

H 

F133  7E 

F13C  2F 

MOV 

CMA 

FIBD  77 

MOV 

M«A 

fibe  be 

FIBF  2F 

CMP 

CMA 

M 

F1C0  77 

MOV 

M«A 

FlCl  CABAFl 

JZ 

MEM0 

F1C4  2B 

DCX 

H 

FiCS  44 

MOV 

B«H 

F1C6  7C 

MOV 

A#  H 

F1C7  3A 

CMP 

0 
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fica 

3EC0 

MVl 

A,0C0H 

FICA 

D1 

POP 

D 

f;cb 

£1 

POP 

H 

FlCC 

C8 

R2 

F/.CD 

3EFF 

MVl 

A,0FFH 

FiCF 

C9 

NlBBl.: 

RET 

f;.d0 

D630 

SUl 

•0» 

Ff.a2 

D8 

RC 

?;.D3 

C6E9 

AOl 

FIDS 

D8 

RC 

F.\D6 

0606 

AO  I 

6 

F1D8 

F2DEF1 • 

JP 

N10 

F.iDB 

0607 

ADI 

7 

F..DD 

D8 

RC 

F-DE 

C60A 

Ni0i 

ADI 

10 

F1E0 

37 

ORA 

A 

F..Z1 

09 

PCHKt 

RET 

F.,  £2 

CD2FFi 

P2Ci 

CALL 

TI 

FI  £5 

FE20 

CPI 

t  t 

f:.S7 

08 

RZ 

t;.£6 

FE2C 

CPI 

f:ea 

C8 

RZ 

F.'.Ea 

FE0D 

CPI 

CR 

f;.ed 

37 

STC 

F E£ 

08 

RZ 

F EF 

3F 

CMC 

F^Fe 

09 

RET 

, 

J 

BREAKPOINT  ENTRY  POINT 

FJ.Fl 

£5 

RESTRTi 

PUSH 

H 

FJ.F2 

D5 

PUSH 

D 

FJIF3 

05 

PUSH 

B 

Fi.F4 

F5 

PUSH 

PSV 

FIFS 

C033F6 

CALL 

AOSCR 

FIFS 

1 1 EBFF 

LXI 

D^EXIT-ENDX-M 

FIFE 

19 

DAO 

0 

FIFO 

EB 

XCHG 

FIFO 

210A00 

LXI 

H, 000AH 

F200 

39 

DAD 

SP 

F201 

0604 

MVl 

b,a 

F203 

EB 

XCHG 

F204 

2B 

RST0I 

DCX 

H 

F205 

72 

MOV 

M,D 

F206 

2B 

OCX 

H 

F207 

73 

MOV 

MjB 

F20S 

D1 

POP 

D 

F209 

05 

OCR 

B 

F20A 

C204F2 

UNZ 

RST0 

F20D 

Cl 

POP 

B 
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F20C  0B 

OCX 

B 

F20F  F9 

SPHL 

F21j3  21U00 

LXl 

H^TLOC 

F211J  39 

DAO 

SP 

F214  7E 

MOV 

A,ti 

F21S  91 

SUB 

C 

F216  23 

IMX 

H 

F217  C21FF2 

JNZ 

RSTl 

F21A  7E 

MOV 

A«M 

F21B  90 

SUB 

B 

F21C  CA20F2 

JZ 

RST3 

F21F  23 

RSTl  t 

INX 

H 

F220  23 

INX 

H 

F221  7E 

MOV 

A«M 

F222  91 

SUB 

C 

F223  C22CF2 

JNZ 

RST2 

F226  23 

INX 

H 

F227  7E 

MOV 

A,M 

F228  90 

SUB 

B 

F229  CA2DF2 

JZ 

RST3 

F22C  03 

RST2t 

INX 

B 

F22D  210F00 

RST3« 

LXl 

H^LLOC 

F230  39 

DAO 

SP 

F231  73 

MOV 

M/E 

F232  23 

INX 

H 

F233  72 

MOV 

M^O 

F234  23 

INX 

H 

F23S  23 

INX 

H 

F236  71 

MOV 

M^C 

F237  23 

INX 

H 

F238  70 

MOV 

M^B 

F239  C5 

PUSH 

B 

F23A  219OF0 

LXl 

H/ERM 

F230  CDIEFI 

CALL 

STRNG 

F240  El 

POP 

H 

F241  CD90F1 

CALL 

LADR 

F244  211400 

LXl 

H^TLOC 

F247  39 

DAO 

SP 

F248  1602 

MVI 

D,2 

F24A  4E 

RST4t 

MOV 

C^M 

F24B  3600 

MVI 

F24D  23 

INX 

H 

F24£  46 

MOV 

B,M 

F24F  3600 

MVI 

M,0 

F251  23 

INX 

H 

F252  79 

MOV 

A/C 

F253  B0 

ORA 

B 

F254  CAS9F2 

JZ 

RST5 

F257  7E 

MOV 

A>M 

F258  02 

STAX 

B 

F259  23 

RST5* 

INX 

H 

F25A  15 

DCR 

0 

F25B  C24AF2 

JNZ 

RST4 

F25E  C366F0 

JMP 

START 
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t 

SCRATCHPAD  TEMPLATE 

F261 

01 

EXIT* 

POP 

D 

F262 

Ci 

POP 

B 

F263 

FI 

POP 

PSV 

F264 

El 

POP 

H 

F26S 

F9 

SPHL 

F266 

FB 

£I 

F267 

210000 

LXt 

H>0 

F268 

HLX 

EfiU 

S>2 

F26A 

C30000 

JMF 

0 

F263 

PCX 

EQU 

S>2 

F26D 

0000 

TlAi 

DW 

0  /TRAP 

F26F 

00 

00 

0  /TRAP 

F270 

0000 

cv 

0  /TRAP 

F272 

00 

03 

0  iTftAP 

F2  73 

0000 

OJ 

0  /VIDEn 

F275 

00 

DB 

0  iuinso 

F276 

00 

ENOXt 

DS 

0  /;opVT 

0005 

ALOC 

EQU 

5 

0003 

BLOC 

EOU 

3 

0002 

CLGC 

EQU 

2 

0001 

OLOC 

EQU 

1 

0000 

ELOC 

EQU 

0 

0004 

FLOG 

EQU 

4 

0010 

HLOC 

EQU 

HLX-EXlT+9 

000F 

LLOC 

EQU 

HLX-EXIT+8 

0013 

PLOC 

EQU 

PCX-EXlTi-9 

0007 

SLOC 

EQU 

7 

0014 

TLOC 

EQU 

TlA-EXIT<-8 

; 

COMMAND 

IMPLEMENTATION 

; 

ASSIGN 

COMMAND 

F277 

CD2FF1 

ASSIGN: 

CALL 

TI 

F27A 

0600 

MVl 

B,0 

F2  7C 

FE43 

CPI 

•c* 

F27E 

CA93F2 

JZ 

ASl 

F281 

04 

INR 

B 

F282 

F284 

F287 

F288 

F28A 

F2aD 

F28£ 

F298 

F293 

F296 

F296 


FE52 

CA93F2 

04 

FE50 

CA93F2 

04 

FE4C 

C2BEF2 

C02FF1 

FE30 

C293F2 


ASl  I 


CPI 

JZ 

INR 

CPI 

JZ 

INR 

CPI 

JNZ 

CALL 

CPI 

JNZ 


•R* 

ASl 

B 

•  pt 

ASl 

B 

*L’ 

EREXT 

TI 

*  «* 

ASl 


1  ABDR 

1  INST 

2  ADDF 
2  ir-'ST 

PN7r. 

KCLD 
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F29S  CD2FFI 
F29C  0630 
F2A0  6F 
F2A1  FABEF2 
F2A4  FE04 
F2A6  F2SEF2 
F2A9  2603 
F2AS  05 
F2AC  FAB4F2 
F2AF  29 
F2S0  29 
F2B1  C3ABF2 
F2B4  £B 
F2B5  C036F6 
F2B8  7£ 

F2B9  B2 
F2BA  AA 
F2BB  B3 
F2BC  77 
F2B0  C9 
F2BE  37 
F2aF  C9 


CALL 

SUI 

MOV 

JM 

CPI 

JP 

MVI 

AS2l  OCR 

JM 
DAO 
DAO 
JMP 

AS3t  XCKQ 

CALL 
MOV 
ORA 
XRA 
ORA 
MOV 
R£T 

EREXTi  STC 
RET 


TI 

•a* 

L^A 

EREXT 

4 

EREXT 

H«3 

B 

AS3 

H 

H 

AS2 

AOIOB 

A«M 

0 

D 

E 

M#A 


1 

binary 

o 

o 

F2C0  CD52F1 

BlNt 

CALL 

EXPR 

F2C3  C046F1 

CALL 

crlf 

F2C6  01 

POP 

0 

F2C7  El 

POP 

H 

F2C8  7A 

B1N0} 

MOV 

A,D 

F2C9  B3 

ORA 

£ 

F2CA  C2D7F2 

JNE 

B0 

F2C0  CDA4F1 

CALL 

LEADS 

F2O0  0E78 

MVI 

C«76H 

F2D2  CD11F3 

CALL 

PHL 

F2D5  B7 

ORA 

A 

F206  C9 

RET 

F2D7  7B 

B0I 

MOV 

A^E 

F2D8  95 

SUB 

L 

F2D9  7A 

MOV 

A«0 

F20A  9C 

SBB 

H 

F2DB  08 

RC 

F2DC  7B 

B1  1 

MOV 

A,E 

F2DD  95 

SUB 

L 

F20E  4F 

MOV 

C,A 

F2DF  7A 

MOV 

A,D 

F2E0  9C 

SBB 

H 

F2E1  3F 

CMC 

F2E2  00 

RNC 

F2E3  0C 

INR 

c 

F2E4  C2E9F2 

JNZ 

B2 

F2E7  0EFF 

MVI 

C,0FFH 

F2E9  05 

B2i 

PUSH 

0 

14? 


F2EA  59 
F2£B  CDA4F1 
r2EE  dE3C 
F2F0  COE5F0 
F2F3  4B 
F2F4  CDUFS 
F2F7  7C 
F2F8  85 
F2F9  57 
F2FA  4E 
F2FB  23 
F2rC  7A 
F2FD  61 
F2FE  57 
F2FF  CDESFa 
F302  ID 
F303  C2FAF2 
F306  4A 
F307  CDE5F0 
F30A  D1 
F30a  7D 
F30C  B4 
F30D  C8 
F30E  C3DCF2 
F311  COESF0 
F3U  40 
F315  CDE5F0 
F318  4C 
F319  C3E5F0 


F31C  CD52FI 
F3iF  01 
F320  El 
F321  CD46F1 
F324  CD90F1 
F327  CDCFF0 
F32A  7E 
F32B  CD95FI 
F32E  CD86F1 
F331  3F 
F332  00 
F333  70 
F334  E60F 
F336  C227F3 
F339  C321F3 


F33C  0C 
F33D  CD52F1 
F340  Cl 


B3i 


PHLI 


J 


MOV 

E«C 

CALL 

LEADS 

MVl 

C#  3CH 

CALL 

PO 

140  V 

C,E 

CALL 

PHL 

MOV 

A«H 

ADD 

L’ 

MOV 

D«A 

MOV 

C,M 

XNX 

H 

MOV 

A,D 

ADD 

C 

KOV 

D«A 

CALL 

PO 

OCR 

E 

JMZ 

B3 

MOV 

C«D 

CALL 

PO 

POP 

0 

MOV 

A/L 

ORA 

H 

R2 

JMP 

B1 

CALL 

PO 

MOV 

C«L 

CALL 

PO 

MOV 

C«H 

jr-p 

PO 

DISPLAY 

COMMAND 

DISPx 

OI0< 

01 1  I 


I 

FILL  I 


CALL 

POP 

POP 

CALL 

CALL 

CALL 

MOV 

CALL 

CALL 

CMC 

RNC 

MOV 

ANl 

JNZ 

JMP 


INR 

CALL 

POP 


EXPR 

0 

H 

CALF 

LADR 

BLK 

A,M 

LEYTS 

KILO 


A,L 

0FH 

Oil 

010 


C 

EXPR 

B 


fill  COMMAND 
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F3A1 

01 

F342 

El 

F343 

71 

F10t 

F344 

CD86FI 

F347 

D243F3 

F3AA 

B7 

F34B 

C9 

r34C 

£1 

GOTO 

F34D 

C0E2F1 

F350 

DA98F3- 

F353 

CA72F3 

F356 

CD7EF1 

F359 

01 

F35A 

211300 

F350 

39 

F35E 

72 

F35F 

2a 

F360 

73 

F361 

78 

F362 

FE0D 

F364 

CA98F3 

F367 

3EC3 

F369 

320800 

F36C 

21F1FI 

F36F 

220900 

F372 

1602 

GO0t 

F374 

211400 

F377 

39 

F378 

E5 

GOl  t 

F379  CD50FI 
F37C  58 
F370  Cl 
F37E  El 
F37F  76 
F380  Bl 
F381  CA8EF3 
r384  71 
F385  23 
F386  70 
F387  23 
F388  0A 
F389  77 
F38A  23 
F38a  3SCF 
F3S0  02 

F38E  73  G02: 

F38F  FE0D 
F391  CA98F3 
F39a  15 
F39S  C278F3 


POP 

0 

POP 

H 

MOV 

M>C 

CALL 

HILO 

JNC 

FIB 

ORA 

RET 

A 

GOTO 

COMMAND 

POP 

H 

CALL 

PCHK 

JC 

S03 

JZ 

GO0 

CALL 

EXF 

POP 

0 

LXl 

H^PLOC 

DAO 

SP 

MOV 

M>0 

OCX 

K 

MOV 

M>£ 

MOV 

A^B 

CPI 

CR 

JZ 

G03 

MVI 

A^CJMP  0> 

STA 

8 

LXl 

h,restrt 

SHLO 

9 

MVI 

D*2 

LXl 

h,tloc 

DAO 

SP 

PUSH 

H 

CALL 

EXPRl 

MOV 

E/B 

POP 

B 

POP 

H 

MOV 

A,B 

ORA 

C 

JZ 

.  G02 

MOV 

M,C 

INX 

H 

MOV 

M.rB 

XNX 

H 

LOAX 

B 

MOV 

M^A 

INX 

H 

MVI 

A#(RST  1) 

STAX 

3 

MOV 

A,E 

CPI 

CR 

JZ 

G03 

OCR 

0 

ONE 

GOl 
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F398  CD46F1  G03t  CALL  CRLF 

F39a  213800  LXI  K«0038H 

F39E  39  dad  SP 

F39F  E9  PCHL 

i  HEXADECIMAL  COMMAND 

HEXN I  CALL  EXPR 

POP  D 

POP  H 

CALL  CRLF 

PUSH  H 

DAD  D 

CALL  LADR 

CALL  BLK 

POP  H 

MOV  A>L 

SUB  E 

MOV  L^A 

MOV  A,H 

SBB  D 

MOV  H,A 

CALL  LADR 

ORA  A 
RET 

;  COPY  COMMAND 

F3ac  CDE0F3  KOPYl 
F3aF  ^F 
F3C0  CDESF0 
F3C3  C3BCF3 

i  LOAD  COMMAND 

F3C6  CD50F1 
F3C9  G1 
F3CA  COE0F3 
F3CD  D8 
F3CE  FE3C 
F3D^  CADFF3 
F3D3  FE78 
F3D5  C2CAF3 
F3D6  CD01FA 
F3DB  D8 
F30C  B5 
F3DO  C8 
F3DE  E9 
F3DF  CDE0F0 
F3E2  D8 
F3E3  5F 
F3E^  CD01F/4 
F3E7  D8 


LOAD  I 

CALL 

EXPRl 

POP 

B 

LI  i 

CALL 

RC 

RI 

CPI 

3CH 

JZ 

L2 

CPI 

78H 

JNZ 

LI 

CALL 

RC 

LHL 

ORA 

RZ 

PCHL 

L 

L2t 

CALL 

RC 

RI 

MOV 

E,A 

CALL 

RC 

LHL 

CALL  R1 

MOV  C,A 

CALL  PO 

JMP  KOPY 


F3A0  CD52F1 
F3A3  Dl 
F3AA  El 
F3A5  CD46FI 
F3A3  E5 
F3A9  19 
F3AA  CD90F1 
F3AD  CDCFF0 
F3B0  El 
FJBl  7D 
F332  93 
F3a3  6F 
FSBA  7C 
F3B5  9A 
F3B6  67 
F3B7  CD90F1 
F33A  a? 

F3B8  C9 
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F3E8 

65 

F3E9 

57 

F3EA 

09 

F3EB 

CDE0F0 

F3EE 

06 

F3EF 

77 

F3F0 

62 

F3FI 

57 

r3F2 

23 

F3F3 

ID 

F3F4 

C2EBF3 

F3F7 

COE0F0 

F3FA 

D6 

F3Fa 

BA 

F3FC 

CACAF3 

F3FF 

37 

F40a 

C9 

£401 

CDE0F0 

F404 

D8 

F405 

6F 

F406 

CDE0F0 

£409 

08 

F40A 

67 

F40a 

C9 

ADD 

L 

MOV 

O^A 

DAD 

B 

CALL 

RC 

RX 

MOV 

M>A 

ADD 

0 

MOV 

D«A 

INX 

U 

OCR 

£ 

UNZ 

L3 

CALL 

RC 

RI 

CMP 

0 

JZ 

STC 

RET 

Li 

CALL 

RC 

R2 

MOV 

L*A 

CALL 

RC 

RI 

MOV 

RET 

H>A 

F40C  0C 
F40O  CD52FI 
F^10  Cl 
F4il  Di 
F412  £1 
F/ll3  7E 
F414  02 
FH15  03 
F416  CD86F1 
F419  Dai3F4 
F4IC  a? 

F410  C9 


MOVE  COMMAND 


MOVEj 


MV0I 


iNft 

CALL 

POP 

POP 

POP 

MOV 

STAX 

INX 

CALL 

UNC 

ORA 

RET 


C 

EXPR 

B 

D 

H 

A,M 

B 

6 

HILO 

MV0 

A 


F41£  063C 
F420  C3A6F1 


•  NULL  COMMAND 

( 

NULL*  MVI  B,60 

JMP  LEAD 


F423  CD50F1 
F426  £1 
F4a7  CDE0F0 
F42A  D8 
F42B  E67F 
F42D  D63A 


READ  COMMAND 


READ* 

CALL 

EXPRl 

POP 

H 

AEO0: 

CALL 

RC 

RI 

ANl 

7FH 

SU2 

’  *  • 
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F42F  C227F4 

JUZ 

REO0 

F432  57 

MOV 

0«A 

F433  E5 

PUSH 

H 

F434  CD65F4 

CALL 

byte 

F437  CA59F4 

JZ 

RE02 

F43A  5F 

MOV 

E>A 

F43B  C065F4 

CALL 

BYTE 

F43E  47 

MOV 

b*a 

F43F  C065F4 

CALL 

BYTE 

F442  4F 

MOV 

C,A 

F443  09 

DAD 

B 

F444  CD65F4 

CALL 

BYTE 

F447  C065F4 

REOl  t 

CALL 

byte 

F44A  77 

MOV 

M#A 

F44B  23 

IMX 

K 

F44C  1 0 

OCR 

E 

F44D  C247F4 

JMZ 

REDl 

F450  CD65F4 

CALL 

BYTE 

F453  El 

POP 

H 

F454  CA27F4 

JZ 

REO0 

F457  37 

STC 

F458  C9 

RET 

F459  CD65F4 

R£02t 

CALL 

BYTE 

F45C  67 

MOV 

H^A 

F45D  CD65F4 

CALL 

BYTE 

F460  Cl 

POP 

B 

F461  6F 

MOV 

L#A 

F462  B4 

ORA 

H 

F463  C8 

RZ 

F464  E9 

PCHL 

F465  CD76F4 

BYTEi 

CALL 

RNBBL 

F468  07 

RLC 

F469  07 

RLC 

F46A  07 

RLC 

F46a  07 

RLC 

F46C  4F 

MOV 

C,A 

F46D  CD76F4 

CALL 

RNBBL 

F470  B1 

ORA 

C 

F471  4F 

MOV 

C^  A 

F472  82 

ADD 

D 

F473  57 

MOV 

D^A 

F474  79 

MOV 

A«C 

F475  C9 

RET 

F476  COE0F0 

RNBBLi 

CALL 

R1 

F479  DA85F4 

JC 

RNBER 

F47C  E67F 

ANl 

7FH 

F47£  CDD0F1 

CALL 

NIBBL 

F481  DA85F4 

JC 

RNBER 

F484  C9 

RET 

F485  El 

RNBER: 

POP 

H 

F406  El 

POP 

H 

F487  El 

POP 

H 

F488  C9 

RET 
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SUBSTITUTE  COMMAND 


; 


F489  CDSari 

SUBSt 

CALL 

EXPRJ 

FA8C  CDE5FI 

CALL 

P2C 

F48F  El 

POP 

H 

F490  D8 

RC 

F491  7E 

SU0X 

MOV 

A«M 

F492  CD95F1 

CALL 

LBYTE 

F495  0E2O 

MV  I 

c,  • 

F497  CDD1F0 

CALL 

CO 

F49A  CDE2F1 

CALL 

PCHX 

F49D  3F 

CMC 

F49E  m 

RNC 

F49F  CAADF4 

JE 

SUl 

F4A2  £5 

PUSH 

H 

F4A3  CD7EFI 

CALL 

EXF 

F4A6  01 

POP 

0 

F4A7  El 

POP  • 

H 

F4A8  73 

MOV 

M>£ 

F4A9  78 

MOV 

A^B 

F4AA  FE0D 

CPI 

CR 

F4AC  C8 

RZ 

F4AD  23 

SUl  t 

INX 

K 

F4AE  C391F4 

JMP 

SU0 

; 

WRITE 

COMMAND 

F4B1  CD52F1 

WRITE; 

CALL 

EXPR 

F4B4  CD46F1 

CALL 

CRLF 

F437  D1 

POP 

0 

F4B8  £1 

POP 

H 

F4B9  7A 

VR1T0; 

MOV 

A«0 

F43A  B3 

ORA 

£ 

F4BB  C20BF4 

JNZ 

V0 

FABE  CD33FS 

CALL 

PEOL 

F4C 1  0E3A 

MVI 

c,  • »  • 

F4C3  CDE5F0 

CALL 

PO 

F4C6  AF 

XRA 

A 

F4C7  57 

MOV 

D«  A 

F4C8  CDICF5 

CALL 

PBYTE 

F4CB  CD17F5 

CALL 

PADR 

FACE  3E01 

MVI 

A«  1 

F4D0  CD1CF5 

CALL 

PBYTE 

F4D3  AF 

XRA 

A 

F404  92 

SUB 

0 

FADS  CD1CF5 

CALL 

PBYTE 

F406  C31EFA 

JMP 

NULL 

FADB  7B 

V0; 

MOV 

A^E 

FADC  95 

SUB 

L 

F4DD  7A 

MOV 

A«D 

FADE  9C 

SB3 

H 

F4DF  D8 

RC 
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F^Lid  7B 
F4£l  95 
F4E2  4F 
F4E3  7A 
F4E4  9C 
F4E5  3F 
F4E6  Oa 
F4£7  79 
F4£8  E62F 
F4£A  3C 
F4ES  DS 
F4EC  5F 
F4EO  i6aa 
F4EF  CD33F5 
F4F2  0E3A 
F4F4  CDESF0 
F4F7  7B 
F4F8  CD1CF5 
F4F8  CD17F5 
F4FE  AF 
F4FF  CD1CF5 
FSaa  7E 
Fsaa  23 
F504  CD1CF5 
F507  ID 
F508  C202F5 
F50a  AF 
F50C  92 
F50D  CD1CF5 
F510  D1 
F5U  7D 
F5ia  B4 
F513  C8 
F514  C3E0F4 
F517  7C 
F518  CD1CF5 
F31S  7D 
F51C  F5 
F51D  0F 
F51E  0F 
F51F  0F 
F520  0F 
F52I  CD3CF1 
F524  CDE5F0 
F527  Fi 
F528  F5 
F529  CD3CFJ 
F52C  CDE5F0 
F52F  FI 
F530  82 
F531  57 
F532  C9 
F533  0E0D 


VRiat 


UR13t 


PAOR* 

PBYTE: 


PEOL: 
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MOV 

A«E 

SUB 

L 

MOV 

C«  A 

MOV 

a«d 

SBB 

H 

CMC 

RMC 

MOV 

A«C 

AMI 

aru 

INR 

A 

PUSH 

0 

MOV 

EjA 

MVl 

i>>a 

CAU. 

PEOL 

KVI 

C#  '  1  • 

call 

PO 

W3V 

A,E 

CALL 

PBYTE 

CALL 

PADR 

XRA 

A 

CALL 

PBYTE 

MOV 

A^M 

INX 

H 

CALL 

PBYTE 

OCR 

£ 

JN2 

WRI3 

XRA 

A 

SUB 

D 

CALL 

PBYTE 

POP 

0 

MOV 

A,L 

ORA 

H 

RZ 

JMP 

VRI0 

MOV 

A/H 

CALL 

PBYTE 

MOV 

A/L 

PUSH 

PSW 

RRC 

RRC 

RRC 

RRC 

CALL 

CONV 

CALL 

PO 

POP 

PSW 

PUSH 

PSW 

CALL 

CONV 

Call 

PO 

POP 

PSW 

ADO 

D 

MOV 

0/A 

RET 

MVI 

C,CR 

F53S  CDE5F0 
F536  0£i3A 
F53A  C3E5F0 


F53D  CD2FFi 
F540  21CCF5 
F543  FE0D 
F545  CA9FF5 
F548  47 
F549  BE 
FS4A  CA57F5  • 
F54D  7E 
F54E  17 
FS4F  D8 
FS50  23 
F551  23 
F552  23' 

F553  78 
F554  C349F5 
F557  CDCFF0 
F55A  23 
F553  7E 
F55C  EB 
F55D  6F 
F55E  2600 
F560  39 
F561  EB 
F562  23 
F563  46 
F564  23 
F565  lA 
F566  CD95F1 
F569  05 
F56A  CA72F5 
F56D  IB 
F56E  lA 
F56F  CD95Fi 
F572  04 
F573  0E2D 
F575  CDD1F0 
F578  CDE2FI 
F57B  3F 
F57C  D0 
F57D  CA95F5 
F580  E5 
F581  C5 
F582  CD7EFI 
F585  El 
F586  FI 
F587  C5 
F588  F5 


t 

Xi 


X0t 


XI  t 
X2t 


X3t 


CALL  PO 

MVI  C,LF 

JMP  PC' 


REGISTER  COMMAND 


CALL 

TI 

LX  I 

H> ACTBL 

CPI 

CR 

UZ 

X6 

MOV 

b^a 

CMP 

M 

JZ 

XI 

MOV 

RAL 

RC 

A,M 

INX 

H 

INX 

H 

INX 

H 

MOV 

A>B 

JMP 

X0 

CALL 

BLX 

INX 

H 

MOV 

XCMG 

A«M 

MOV 

L,A 

MVI 

H,I3 

DAD 

XCHG 

SP 

INX 

H 

MOV 

B,M 

INX 

H 

LDAX 

D 

CALL 

LBYTE 

OCR 

B 

JZ 

X3 

DCX 

D 

LDAX 

D 

CALL 

LBYTE 

INR 

B 

MVI 

C,  ' 

CALL 

CO 

CALL 

CMC 

RNC 

PCHK 

JZ 

X5 

PUSH 

H 

PUSH 

B 

CALL 

EXF 

POP 

H 

POP 

PSW 

PUSH 

B 

PUSH 

PSW 
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F5a9  7D 

MOV 

A,L 

F5dA  12 

STAX 

0 

F58a  Cl 

POP 

B 

F58C  05 

DCR 

B 

F58D  CA93F5 

JZ 

X4 

F590  13 

INX 

D 

F59i  7C 

MOV 

A*H 

F592  12 

STAX 

0 

F593  Cl 

X4t 

POP 

B 

F594  El 

POP 

H 

F595  7E 

X5t 

MOV 

A>M 

F596  B7 

ORA 

A 

F597  ra 

Bli 

F59a  78 

MOV 

A#B 

F599  FE0D 

CPI 

CR 

F59B  Ca 

RZ 

F59C  C35AF5 

JMP 

X2 

F59F  CD46F1 

X6t 

CALL 

CRLF 

F5A2  CDCFF0 

X7l 

CALL 

BLK 

F5AS  7E 

MOV 

A#M 

F5A6  23 

INX 

H 

F5A7  37 

ORA 

A 

F5A8  F8 

RM 

F5A9  4F 

MOV 

C,A 

F5AA  CDDlFa 

CALL 

CO 

F5AD  0E3D 

MVX 

c,  »=♦ 

F5AF  CDD1F0 

CALL 

CO 

FSaa  7E 

MOV 

A«M 

F5B3  23 

INX 

H 

FSSA  EB 

XCHG 

F5B5  6F 

MOV 

L,A 

FSae  2603 

MVl 

H,d 

F5S8  39 

DAD 

SP 

F5a9  EB 

XCHG 

FSBA  46 

MOV 

B,Vl 

Fsaa  23 

INX 

H 

F5ac  lA 

LDAX 

D 

FSao  CD95FI 

CALL 

LBYTE 

F5C0  05 

DCR 

B 

F5C1  CAA2F5 

JZ 

X7 

F5C4  IB 

DCX 

D 

F5C5  lA 

LDAX 

0 

F5C6  CD95FI 

CALL 

LBYTE 

F5C9  C3A2F5 

JMP 

X7 

FSCC  410701 

ACTBLt 

OB 

*A’, 

AL0C+2< 

F5CF  420501 

DB 

•B», 

BL0C+2> 

F5D2  430401 

D3 

•c. 

CLOC+2, 

F505  440301 

OB 

DL0C+2* 

F5D8  450201 

DB 

•E’, 

ELOC+2^ 

F50a  460601 

OB 

•F', 

F  LO  C  +  2  # 

F5DC  481201 

DB 

HLOC+2, 
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F5EI  4Cliil 
F5E4  401208 
F5E7  501502 
FSEA  530902 
F5ED  FF 

0000 


OB 

•L»# 

OB 

•M'# 

JB 

•P** 

OB 

•s** 

OB 

-1 

ENO 

LL0C^2«  1 
HL0C«2«  2 
PL0C-»2«  2 
SL0Cf2«  2 
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i  SYSTEM  CONFIGURATION  PACKAGE 


FtiiOa  ORG  0F6GGH 

i  LOGICAL  OEUICE/DEVICE  DRIVER  TABLES 

J 

i  EACH  4  ENTRY  TABLE  LISTS  THE  ADDRESSES 

J  OF  THE  DRIVER  ROUTINES  TO  BE  USED  FOR 

;  THE  PHYSICAL  DEVICES  WHICH  MAY  ASSIGNED 

i  TO  THAT  LOGICAL  DEVICE. 

10 TAB  I 


i  CONSOLE  STATUS 


I  RETURN  WITH  REGISTER  A  •  0  IF  NO 

;  CONSOLE  CHARACTER  AVAILABLE. 


F 

HaF6 

CSTABj 

DU 

TTST 

;0 

F602 

7FF6 

DW 

KYST 

1 1 

7FF6 

DU 

KYST 

;2 

f  6i46 

7FF6 

DW 

KYST 

;3 

• 

S 

CONSOLE 

INPUT 

J 

RETURN 

CONSOLE 

INPUT  CHARACTER 

i 

IN  REGISTER  A. 

F608 

A6F  6 

CITABt 

DW 

TTI 

F60A 

6SF6 

DU 

KYBD 

;  1 

F60C 

66F6 

DW 

KYBD 

;2 

F  60E 

66F6 

DV 

KYBD 

;3 

i 

CONSOLE 

OUTPUT 

• 

OUTPUT 

BYTE  IN 

REGISTER  C 

« 

9 

TO  CONSOLE  OUTPUT  DEVICE. 

F610 

B7F6 

CO TAB t 

DU 

TTO 

;0 

F612 

B7F6 

DV 

TTO 

;i 

F614 

D4F6 

DV 

THRU 

;2 

F616 

59F6 

DW 

CRT 

;3 

; 

READER 

INPUT 

;  RETURN  READER  INPUT  BYTE  IN 
i  REGISTER  At  CARRY  OFF.  SET 
;  CARRY  IF  NO  BYTE  AVAILABLE. 
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F618 

C2F6 

RITABj 

DV 

TTR 

J0 

F6iA 

87F6 

DU 

RDR 

Jl 

F61C 

66F6 

DV 

KYBD 

J2 

F61E 

FBBS 

DW 

aB8F0H 

J3  DISK 

READ 

• 

> 

PUNCH  OUTPUT 

J 

OUTPUT 

BYTE  IN 

REGISTER 

C 

J 

TO  PUNCH  DEVICE 

F62ia 

B7F6 

POTABl 

DV 

TTO 

J0 

F622 

DFF6  ■ 

DV 

PUNCH 

J  I 

F62A 

59F6 

DV 

CRT 

J2 

F626 

73B9 

DV 

0B973H 

;3  DISK 

WRITE 

; 

LISTING 

OUTPUT 

• 

OUTPUT 

BYTE  in' 

REGISTER 

C 

• 

J 

TO  LISTING  DEVICE. 

F623 

B7F6 

LOTAB: 

DV 

TTO 

J0 

F62A 

59F6 

DV 

CRT 

;  1 

F62C 

D4F6 

DV 

THRM 

S2 

F62E 

B7F6 

DV 

TTO 

;3 

;  SPECIAL  SUBROUTINE  TO  LOCATE  MONITOR 

;  SCRATCH  RAM 

• 

S 

i  THE  ADDRESS  OF  THE  TOP  OF  THE  SCRATCH 

;  RAM  AREA  USED  BY  THE  MONITOR  IS  RETURNED 

i  IN  REGISTERS  D«E. 

;N0TE:  THIS  SUBROUTINE  IS  NOT  CALLED  IN  THE 

i  USUAL  WAY;  INSTEAD,  THE  RETURN  ADDRESS 

i  IS  PLACED  IN  REGISTERS  D,E  AND  THE 

;  SUBROUTINE  IS  ENTERED  BY  A  JUMP  INSTRUCTIC 

;  RETURN  IS  DONE  BY  PLACING  THE  RETURN 

S  ADDRESS  IN  H, L  AND  EXECUTING  A  PCHL  INST. 

F63a  C33DF6  ADSCSx  JMP  ADS2 
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F633  C34rF6  ADSCRl  JMP 


ADS  I 


J 

SUBROUTINE  TO  SET  ADDRESS 

i 

• 

OF  lOBYT 

4 

i 

THE  ADDRESS  OF  THE  BYTE  USED  TO 

t 

RECORD 

THE  CURRENT  PHYSI CAL/LOG ICAL 

t 

DEVICE 

ASSIGNMENTS  IS  RETURNED  IN 

t 

REGISTERS  H^L. 

F6J6 

C34FF6 

AOlOBi 

JMP 

ADSl 

; 

SUBROUTINE  TO  SET  THE  USER  STACK 

; 

• 

ADDRESS 

• 

; 

THE  ADDRESS  TO  BE  USED  AS  THE 

t 

DEFAULT 

VALUE  OF  THE  USER  STACK 

i 

ADDRESS 

IS  RETURNED  IN  REGISTERS  H, 

F639 

218000 

ADUST  1 

LXl 

H*  80  H 

F63C 

C9 

RET 

F63D 

2133^2 

ADS2I 

LXl 

F640 

24 

A0S3  t 

INK 

H 

F641 

7Z 

MOV 

A»n 

F642 

2F 

CMA 

F643 

F3 

D1 

F644 

77 

MOV 

M*A 

F645 

BE 

CMP 

M 

F646 

2F 

CMA 

F64  7 

FS 

El 

F64S 

77 

MOV 

M>A 

F649 

CH40F6 

JZ 

ADS3 

F64C 

2B 

OCX 

H. 

F640 

£B 

XCHG 

F64£ 

£9 

PCHL 

F64F 

D5 

AD51  : 

PUSH 

D 

F65ti 

12FF00 

LXl 

H.OFFH 

F653 

000000 

NOP 

F656 

00 

HOP 

F657 

01 

POP 

D 

F653 

C9 

RET 

; 

PHYSICAL  DEVICE  DRIVER  ROUTINES 

; 

REQUIREMENTS 

; 

MAINTAIN  CONTENTS  OF  ALL 

; 

REGISTERS  EXCEPT  A  AND  F. 

• 

4 

EXIT  BY  RETURN  INST. 
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F6bJ  79 
F65A  B7 
F6S3  C8 
F65C  E5 
F65D  CD36F6 
F66a  2B 
F661  28 
F662  23 
F663  C334F7 


F666  0302 
F663  £601 
F66A  C266F6 
F660  0303 
F66F  E67F 
F67I  FE61 
F673  DA7DF6 
F676  FE73 
F678  0270F6 
F673  E60F 
F670  B7 
F67E  C9 


F67F  DB02 
F681  E601 
F683  0601 
F685  9F 
F686  C9 


F687  E5 
F688  2 1 000B 
F68B  OB04 
F680  E601 
F68F  CA9aF6 
F692  2B 
F693  7C 
F69<i  as 
F695  C28BF6 
F698  37 
F699  El 
F69A  C9 


i  VIDEO  DRIVER 

CRT I  MOV  A>C 

ORA  A 

RE 

PUSH  H 

CALL  ADI OB 

OCX  H 

OCX  H 

OCX  H 

JMP  0F7a4H 


i  KEYBOARD  DRIVER 

KYBD:  IN  2 

ANl  1 

UN2  KYBD 

IN  3 

ANI  7FH 

CPI  61H 

UC  KBl 

CPI  1 

JNC  XBl 

ANI  0DFH 

KBli  ORA  A 

RET 

*  KEYBOARD  STATUS 


KYSTj 

IN 

2 

ANI 

1 

SUI 

J 

SBB 

RET 

A 

J 

READER 

driver 

RDR: 

PUSH 

H 

LXI 

Hj0 

ROt 

IN 

A 

ANI 

1 

JZ 

RD2 

OCX 

H 

MOV 

A«H 

ORA 

L 

JNZ 

STC 

RD 

POP 

RET 

H 

I6l 


J CHECK  FOR  NULL 


i LOVER  CASE  A 
ILOVER  CASE  Z  +1 
IDELET  ONE  BIT 

DRIVER 


P69d  DSas 
F690  87 
F69E  El 
F69F  C9 


F6A8  0833 
F6A2  £602 
F6A4  060  2 
F6A6  9F 
F6A7  C9 


F6A8  AF 
F^A9  0300 
F6Aa  0803 
F6A0  £602 
F6AF  CAABF6 
F682  0802 
F6B4  E67F 
F686  C9 


F6B7  0803 
F689  £601 
F688  CAB7F6 
F68E  79 
F6aF  0302 
F6CI  C9 


F6C2  3E01 
F6C4  0330 
F6C6  3E0a 
F6C8  0300 
F6CA  0800 
F6CC  £601 
F6CE  C2CAF6 
F601  0801 
F603  C9 


R02i 

IN 

5 

ORA 

A 

POP 

H 

RET 

J 

TELETYPE  STATUS 

DRIVER 

TTSTi 

IN 

3 

ANl 

2 

SUI 

2 

SSB 

A 

RET 

i 

TELETYPE  INPUT 

DRIVER 

TTIi 

XRA 

A 

OUT 

0 

TTIli 

IN 

3 

ANI 

2 

JZ 

TTll 

IN 

2 

ANl 

TFH 

RET 

1 

TELETYPE  OUTPUT 

DRIVER 

TTO* 

IN 

3 

ANl 

1 

JZ 

TTO 

MOV 

A#  C 

OUT 

2 

RET 

J 

TELETYPE  T'-ADER 

DRIVER 

TTRi 

MVI 

A,  1 

OUT 

0 

MVI 

A^0 

OUT 

0 

TTRl  1 

IN 

0 

ANl 

1 

JNZ 

TTRI 

IN 

1 

RET 
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F6D4  DBI32  THRMl 

F606  E68a 

F6D8  C2D4F6 

F6Dfl  79 

F60C  0383 

F6DE  C9 


F6DF  0884  PUNCH* 

F6C1  £688 

F6E3  C2DFF6 

F6E6  79 

F6E7  0305 

F6E9  C9 


THERMAL  PRINTER  ORIVER 

IN  2 

ANl  80H 

JN2  THRM 

MOV  A^C 

OUT  3 

RET 

PUNCH  ORIVER 

IN  4 

ANl  e0H 

JN2  PUNCH 

MOV  A,  C 

OUT  5 

RET 
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CP/M  ASSEMBLER  -  VER  1.0 


F800 

ORG 

0F80OH 

F600 

2109F8  ENTRY: 

LXI 

H.MESS 

F803 

CDIEFO 

CALL 

STRING 

F805 

C321FO 

JMP 

RENT 

F0)E 

.  STRING: 

EOU 

0F01EH 

F809 

OD0A2O2O2OMESS: 

OB 

ODH.OAH,'  HELLO  II 

YOU  HAVE  ENTERED  THE  ' 

F830 

0A0D574F52 

DB 

OAH.ODH, 'WORLD  OF 

DIAGNOSTICS.  THIS  LIST  WILL  ACQUAINT' 

F860 

0D0A594F55 

DB 

ODH.OAH, 'YOU  WITH 

SOME 

OF  THE  COMMANDS  OF  THE  DIAGNOSTIC 

F891 

OD0AUF5O45 

DB 

ODH.OAH, 'OPERATING  SYSTEM.  MANY  OF  THE  FUNCTIONS  ARE  VERY' 

F8CI1 

0D0A5349‘1D 

DB 

ODH.OAH, 'SIMILAR 

TO  CPM/DDT. ' 

F8D9 

ODOA«34FaD 

DB 

ODH.OAH, 'COMMAND 

FUNCTION' 

F8FC 

ODCA 

DB 

ODH.OAH 

F8FE 

0DOA20202O 

DB 

ODH , OAH , •  A 

ASSIGNS  I/O  DEVICES  C  PHYSICAL' 

F92F 

0D0A202020 

DB 

ODH.OAH, ' 

TO  LOGICAL  DEVICE  )' 

F956 

ODOA 

DB 

ODH ,  OAH 

F958 

0D0A202020 

DB 

ODH.OAH,'  B 

DUMP  MEMORY  IN  BINARY  OH  PUNCH  DEVICE' 

F98F 

ODOA 

DB 

ODH , OAH 

F991 

0DOA2O202O 

DB 

ODH.OAH,'  C 

HEXADECIMAL  ARITHMETIC 

F989 

ODOA 

DB 

ODH.OAH 

F9BB 

0DOA2O2O2O 

DB 

ODH.OAH,'  D 

DISPLAY  A  BLOCK  OF  MEMORY' 

F9F6 

ODOA 

DB 

ODH.OAH 

F9F8 

0D0A202020 

DB 

ODH , OAH , '  F 

FILLS  A  BLOCK  OF  MEMORY  WITH  A  CONSTANT 

r  A21 

ODOA 

DB 

ODH.OAH 

FA23 

ODOA202020 

OB 

ODH.OAH,'  G 

GO  TO  ADDRESS  AND  EXECUTE,  OPTIONAL' 

FA5a 

ODOA202020 

DB 

ODH.OAH, ' 

BREAK  POINTS. ' 

FA7A 

OAOD 

DB 

OAH.ODH 

FA7C 

OO0A202O2O 

DB 

ODH.OAH,'  H 

HELP,  THIS  PROGRAM' 

FAAO 

ODOA 

DB 

ODH.OAH 

FAA2 

0D0A202O2O 

DB 

ODH.OAH,'  K 

COPY  FROM  READER  TO  PUNCH' 

FACD 

ODOA 

DB 

ODH.OAH 

FACF 

0D0A2O202O 

OB 

ODH.OAH,'  L 

LOAD  BINARY  TAPE,  OPTIONAL  BIAS' 

FBOO 

ODOA 

DB 

ODH ,  OAH 

F302 

0D0A202020 

DB 

ODH.OAH,'  M 

MOVE  A  BLOCK  OF  MEMORY  TO  ANOTHER  LOC 

FB39 

ODOA 

DB 

ODH ,  OAH 

FE3B 

ODOA 202020 

DB 

ODH.OAH,'  N 

OUTPUTS  60  NULLS  TO  PUNCH  DEVICE' 

FB6D 

ODOA 

DB 

ODH.OAH 

FB6F 

ODOA202020 

DB 

ODH.OAH,'  R 

LOAD  A  HEX  TAPE  FROM  READER  DEVICE' 

FBA3 

ODOA 

DB 

ODH.OAH 

FBA5 

000A202020 

DB 

ODH.OAH,'  S 

DISPLAY  AND  CHANCE  ANY  MEM  LOC 

FBD5 

ODOA 

DB 

ODH.OAH 

FBD7 

ODOA202020 

DB 

ODH.OAH,'  T 

TEST  LIST  AND  EXECUTION  PROGRAM' 

FC08 

ODOA 

DB 

ODH.OAH 

FCOA 

OD0A2O2020 

OB 

ODH.OAH,'  W 

DUMP  MEMORY  IN  HEX  ON  PUNCH  DEVICE' 

FC3E 

ODOA 

DB 

ODH.OAH 

FCAO 

ODOA202020 

OB 

ODH.OAH,'  X 

CPU  REGISTER  DISPLAY  AND  CHANCE ',0 

F021 

=  RENT: 

t 

E3U 

OF021H 

FDOO 

t 

t 

ORG 

OFDOOH 

FDOO 

OBFF  ENTRY1: 

IN 

OFFH 

FD02 

Etoi 

ANI 

01 H 

FD04 

C21  3FD 

JNZ 

FART 

FD07 

219AFD  ENTRY2: 

LXI 

H.MESS? 

FDOA 

CDIEFO 

CALL 

STRING 

PRINT 

LIST  OF  TESTS 

FDOD 

2153FD  ENTRra: 

LXI 

H,MESS3 

FD10 

CDIEFO 

CALL 

STRING 

PROMT 

FOR  INPUT 

FDI3 

CD2FF1  FART; 

CALL 

TI 

F016 

FE03 

CPI 

03H 

TEST 

IF  CONTROL  C 

FD18 

CA21F0 

JZ 

RENT 

FD1B 

FE40 

CPI 

AOH 

FD1D 

DA2EFD 

JC 

NUH  ; 

NUMBER 

FD20 

FE50 

CPI 

5OH 

FD22 

DA3EFD 

JC 

LETTER 
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FDE5 

214DFD  ERROR; 

LXI 

H.MESSV 

FDas 

CDIEFO 

call 

string 

;PRINT  ERROR  >? 

FD2B 

C30DFD 

JMP 

EHIRX3 

;REPROHT 

FD2E 

FE30  NUM; 

CPI 

30H 

;SEE  IF  NJMBER 

FD30 

0A25FD 

JC 

ERROR 

;JUMP  IF  MO 

FD33 

FE3A 

CPI 

3AH 

FD35 

E60F 

ANI 

OFH 

;REMOVE  LEAD  NIBBLE 

FD37 

87 

ADO 

A 

jDOUBLE  FOR  TABLE  LOOK  'JP 

FD38 

21DDFE 

LXI 

H.NUMTAB 

.•NUMBER  TABLE 

FD38 

C344FD 

JMP 

COMMON 

FD3E 

E60F  LETTER: 

ANI 

OFH 

FD40 

87 

ADD 

A 

JDOUBLE  FOR  TABLE 

FD41 

21F1FE 

LXI 

H.LETTAB 

JLETTER  TABLE 

FD44 

1600  COMMON; 

MVI 

D.O 

FD46 

5F 

MOV 

E.A 

FD47 

19 

DAD 

D 

:ADD  OFFSET  TO  TABLE 

ADDRESS 

FD48 

7E 

MOV 

A.M 

FD49 

23 

INX 

H 

FD4A 

66 

MOV 

H.M 

FD4B 

6F 

MOV 

L.A 

FD4C 

E9 

PCHL 

:JUMP  TO  TEST  PROGRAM 

FD4D 

0D0A203F20MESS4: 

DB 

DDH.OAH, 

«  ^  1 

'  ,  i 

0 

FD53 

0D0A454E54MESS3 

DB 

ODH.OAH, 

•ENTER 

TEST  ID  NO.  TO  RUN  TEST' 

FD'3 

0D0AU54E54 

DB 

ODH.OAH, 

'ENTER 

CONTROL  C  TO  RETURN  TO 

MONITOR 

FD9A 

0D0A:A2054MESS2: 

DB 

ODH.OAH, 

OAH, ' 

'  TESTS  AVAILABLE' 

FDAD 

0D0A2O2O31 

DB 

ODH.OAH. 

’  1 

COMPREHENSIVE  MEMORY 

TEST’ 

FDCF 

ODOA202032 

DB 

ODH.OAH, 

'  2 

• 

MINI-MEMORY  0  -  .  IK  ’ 

FDEC 

000A202033 

DB 

ODH.OAH, 

•  3 

• 

MINI-MEMORY  0  -  8K  ’ 

FE09 

0D0A202034 

DB 

ODH.OAH, 

'  4 

• 

MINI-MEMORY  0  -  24K' 

FE26 

OO0A2O2O35 

DB 

ODH.OAH, 

•  5 

• 

FORMATTED  DISK  TEST’ 

FE42 

0D0A202036 

DB 

ODH.OAH, 

•  6 

DISK  TRACK  READ’ 

FE5A 

0D0A202037 

DB 

ODH.OAH, 

•  7 

• 

DISK  TRACK  WRITE' 

F£73 

0DCA202038 

DB 

ODH.OAH, 

•  8 

• 

UNIBUS  PORI  TEST' 

FE8C 

0D0A202039 

DB 

ODH.OAH, 

•  9 

• 

UNIBUS  COMMUNICATION 

TEST’ 

feae 

ODOA202041 

DB 

ODH.OAH, 

•  A 

• 

UNIBUS  SNAPSHOT’ 

FEC6 

000A202042 

DB 

ODH.OAH, 

•  B 

• 

DISPLAY  TESTS’ ,0 

•ADD  MORE  TO  DIRECTORT  HERE 


F12F  = 

TI: 

EQU 

0F12FH 

FEDD  25FD 

NUMTAB: 

DW 

ERROR 

FEDF  OOCO 

DW 

OCOOOH 

;MEMORy  TEST 

FEE1  90C2 

DW 

0C29OH 

;MINI  .IK 

FEE3  00D6 

DW 

0D600H 

;MINI  8K 

FEES  00D7 

DW 

0D700H 

•.MINI  24K 

FEET  00C8 

DW 

0C800H 

iFOMAT  DSK 

FEE9  40CE 

DW 

0CE40H 

jTRK  RD 

FEES  80CD 

DW 

0CD80H 

jTRK  WRT 

FEED  OODO 

DM 

OOOOOH 

;UB  PORT 

FEEF  OODl 

DW 

ODtOOH 

:UB  COMM 

FEFI  25F0 

LEITA0: 

DW 

ERROR 

FEF3  0005 

DW 

0D5OOH 

ISNAPSHOT 

FEF5  OOEO 

DW 

OEOOOH 

;DISPLAY 

FEF7  25FD 

DW 

ERROR 

FEF9  25FD 

DW 

ERROR 

FEFB  25FD 

DW 

ERROR 

FEED  25FD 

DW 

ERROR 

FEFF  25FD 

DW 

ERROR 

FF01  25FD 

DW 

ERROR 

FF03  25FD 

DW 

ERROR 

FFOS  25FD 

DW 

ERROR 

FF07 
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END 


DATE 

FILMED 


DTIC 


